+ wobject can force 302 redirect after all page processing by setting

$session{page}{redirectURL}
This commit is contained in:
Alan Ritari 2004-08-11 22:11:58 +00:00
parent 9b2ab8a236
commit 5b58fcbb23

View file

@ -176,7 +176,14 @@ sub page {
}
$cache->set($output, $ttl) if ($useCache);
}
my $httpHeader = WebGUI::HTTP::getHeader();
my $httpHeader;
# allow a wobject to force a redirect by setting {page}{redirectURL}
if ($session{'page'}{'redirectURL'}) {
$httpHeader = WebGUI::Session::httpRedirect(WebGUI::Macro::process($session{'page'}{'redirectURL'}));
} else {
$httpHeader = WebGUI::HTTP::getHeader();
}
# This allows an operation or wobject to write directly to the browser.
if ($session{page}{empty}) {