oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed HTTP bugs

Browse source
This commit is contained in:
JT Smith 2004-09-20 19:22:03 +00:00
parent 3248a01b2f
commit 3ce8565a4f
4 changed files with 61 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI.pm
View file

@ -120,7 +120,6 @@ sub page {
my $output = _processOperations();
if ($output ne "") {
$output = _generatePage($output);
$output = WebGUI::HTTP::getHeader().$output;
} else {
my $useCache = (
$session{form}{op} eq "" &&
@ -154,12 +153,12 @@ sub page {
} else {
$ttl = $session{page}{cacheTimeout};
}
$output = WebGUI::HTTP::getHeader().$output;
$cache->set($output, $ttl) if ($useCache);
$cache->set($output, $ttl) if ($useCache && !WebGUI::HTTP::isRedirect());
WebGUI::PassiveProfiling::addPage(); # add wobjects on page to passive profile log
}
}
WebGUI::Affiliate::grabReferral(); # process affilliate tracking request
$output = WebGUI::HTTP::getHeader().$output;
# This allows an operation or wobject to write directly to the browser.
$output = undef if ($session{page}{empty});
WebGUI::Session::close() unless ($useExistingSession);