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

Add a method to directly set the redirect location.

Browse source
This commit is contained in:
Colin Kuskie 2008-07-26 02:07:31 +00:00
parent 70fd60698c
commit 5e4e31380f
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Session/Http.pm
View file

@ -510,12 +510,25 @@ sub setRedirect {
my @params = $self->session->form->param; my @params = $self->session->form->param;
return undef if ($url eq $self->session->url->page() && scalar(@params) < 1); # prevent redirecting to self return undef if ($url eq $self->session->url->page() && scalar(@params) < 1); # prevent redirecting to self
$self->session->errorHandler->info("Redirecting to $url"); $self->session->errorHandler->info("Redirecting to $url");
$self->{_http}{location} = $url; $self->setRedirectLocation($url);
$self->setStatus("302", "Redirect"); $self->setStatus("302", "Redirect");
$self->session->style->setMeta({"http-equiv"=>"refresh",content=>"0; URL=".$url}); $self->session->style->setMeta({"http-equiv"=>"refresh",content=>"0; URL=".$url});
} }
#-------------------------------------------------------------------
=head2 setRedirectLocation ( url )
Sets the HTTP redirect URL.
=cut
sub setRedirectLocation {
my $self = shift;
$self->{_http}{location} = shift;
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 setStatus ( code, description ) =head2 setStatus ( code, description )