- Fixed a macro processing problem on the Redirect asset.

- Added a log info entry when a redirect occurs.
This commit is contained in:
JT Smith 2006-06-13 00:55:35 +00:00
parent e6aafa2f7f
commit af84fb43af
3 changed files with 8 additions and 4 deletions

View file

@ -367,6 +367,7 @@ sub setRedirect {
my $url = shift;
my @params = $self->session->form->param;
return undef if ($url eq $self->session->url->page() && scalar(@params) < 1); # prevent redirecting to self
$self->session->errorHandler->info("Redirecting to $url");
$self->{_http}{location} = $url;
$self->setStatus("302", "Redirect");
$self->session->style->setMeta({"http-equiv"=>"refresh",content=>"0; URL=".$url});