From 48a67a803e0cb300afa27e292f80fdf6db0546ec Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 24 Mar 2007 22:19:57 +0000
Subject: [PATCH] prototype fix for page hopping after login

---
 lib/WebGUI/Auth.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Auth.pm b/lib/WebGUI/Auth.pm
index 282686a17..4089580f8 100644
--- a/lib/WebGUI/Auth.pm
+++ b/lib/WebGUI/Auth.pm
@@ -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);