prototype fix for page hopping after login

This commit is contained in:
Colin Kuskie 2007-03-24 22:19:57 +00:00
parent e58f062114
commit 48a67a803e

View file

@ -400,9 +400,9 @@ sub displayLogin {
my $method = $_[0] || "login";
my $vars = $_[1];
# Automatically set redirectAfterLogin unless we've linked here directly
# or it's already been set.
# or it's already been set to perform another operation
unless ($self->session->form->process("op") eq "auth"
|| $self->session->scratch->get("redirectAfterLogin") ) {
|| ($self->session->scratch->get("redirectAfterLogin") =~ /op=\w+/) ) {
$self->session->scratch->set("redirectAfterLogin",$self->session->url->page($self->session->env->get("QUERY_STRING")));
}
my $i18n = WebGUI::International->new($self->session);