From 46562e9e8fa842e322f7f3da931afccde2953789 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Fri, 25 Jul 2008 16:48:21 +0000
Subject: [PATCH] Session/Url forceSecureConnection regex fix.

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

diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
index f5cd15b3c..be566dbb5 100644
--- a/lib/WebGUI/Session/Url.pm
+++ b/lib/WebGUI/Session/Url.pm
@@ -263,8 +263,10 @@ sub forceSecureConnection{
         $url = $self->session->url->page if(! $url);
         $url = $self->session->env->get('QUERY_STRING') if(! $url);
 
-        if($url !~ /^$self->getSiteURL()/i){
-            $url = $self->getSiteURL() . $url;
+        my $siteURL = $self->getSiteURL();
+
+        if($url !~ /^$ssiteURL/i){
+            $url = $siteURL . $url;
         }
         if($env->get('QUERY_STRING')){ 
             $url .= "?". $env->get('QUERY_STRING');