added a warning about passive profiling

This commit is contained in:
JT Smith 2004-09-23 14:05:32 +00:00
parent 5d435ba1f9
commit 65404ed7fb
8 changed files with 26 additions and 2 deletions

View file

@ -18,6 +18,7 @@ package WebGUI::HTTP;
use strict;
use WebGUI::International;
use WebGUI::Session;
use WebGUI::Style;
=head1 NAME
@ -234,6 +235,7 @@ The URL to redirect to.
sub setRedirect {
$session{http}{location} = shift;
setStatus("302", "Redirect");
WebGUI::Style::setMeta({"http-equiv"=>"refresh",content=>"0,".$session{http}{location}});
}