1324 |
# Declare the return variable. |
# Declare the return variable. |
1325 |
my $retVal; |
my $retVal; |
1326 |
# Check the debug configuration. |
# Check the debug configuration. |
1327 |
if ($FIG_Config::debug_mode) { |
if (1) { # HACK $FIG_Config::debug_mode) { |
1328 |
$retVal = 1; |
$retVal = 1; |
1329 |
} else { |
} else { |
1330 |
# Here debug mode is off, so we generate an error page. |
# Here debug mode is off, so we generate an error page. |
1332 |
print $pageString; |
print $pageString; |
1333 |
} |
} |
1334 |
# Return the determination indicator. |
# Return the determination indicator. |
1335 |
return 1; #HACK return $retVal; |
return $retVal; |
1336 |
} |
} |
1337 |
|
|
1338 |
=head3 Strip |
=head3 Strip |