1734 |
$retVal = 1; |
$retVal = 1; |
1735 |
} else { |
} else { |
1736 |
# Here debug mode is off, so we generate an error page. |
# Here debug mode is off, so we generate an error page. |
1737 |
my $pageString = PageBuilder::Build("<Html/ErrorPage.html", {}, "Html"); |
my $pageString = PageBuilder::Build("<<Html/ErrorPage.html", {}, "Html"); |
1738 |
print $pageString; |
print $pageString; |
1739 |
} |
} |
1740 |
# Return the determination indicator. |
# Return the determination indicator. |
2002 |
my $outputString; |
my $outputString; |
2003 |
if (defined $varHash) { |
if (defined $varHash) { |
2004 |
# Here we have a template file. We need to apply the variables to the template. |
# Here we have a template file. We need to apply the variables to the template. |
2005 |
$outputString = PageBuilder::Build("<$webData", $varHash, "Html"); |
$outputString = PageBuilder::Build("<<$webData", $varHash, "Html"); |
2006 |
} else { |
} else { |
2007 |
# Here the user gave us a raw string. |
# Here the user gave us a raw string. |
2008 |
$outputString = $webData; |
$outputString = $webData; |