From 40c61575d64cda30e3e2ba67c0f72e371fcf3b34 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 13 Oct 2011 09:09:45 -0700
Subject: [PATCH] Fix syntax errors in the last Auth patch for bug #12269.

---
 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 f87a98083..bfc57518f 100644
--- a/lib/WebGUI/Auth.pm
+++ b/lib/WebGUI/Auth.pm
@@ -590,7 +590,7 @@ sub displayLogin {
     $vars->{title} = $i18n->get(66);
     my $action;
     if ($self->session->setting->get("encryptLogin")) {
-        my $uri = URI->new($session->url->page(undef,1));
+        my $uri = URI->new($self->session->url->page(undef,1));
         $uri->scheme('https');
         $uri->host_port($uri->host);
         $action = $uri->as_string;
@@ -928,7 +928,7 @@ sub login {
 		my $currentUrl = URI->new($self->session->url->page(undef,1));
         $currentUrl->scheme('http');
         $currentUrl->port($self->session->config->get('webServerPort') || 80);
-		$self->session->http->setRedirect($currentUrl->canonical->as-string);
+		$self->session->http->setRedirect($currentUrl->canonical->as_string);
 	}
 
     # Get open version tag. This is needed if we want