From b0af5d2cd3b47f704247a64b35f69ea69f04b4f1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 4 Jan 2011 21:13:12 -0800
Subject: [PATCH] Remove use of gateway config option from getRequestedUrl.

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

diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
index 4b3b89654..4c3fe415e 100644
--- a/lib/WebGUI/Session/Url.pm
+++ b/lib/WebGUI/Session/Url.pm
@@ -323,10 +323,10 @@ Returns the URL of the page requested (no gateway, no query params, just the pag
 
 sub getRequestedUrl {
 	my $self = shift;
-	return undef unless ($self->session->request);
+	return undef unless (my $request = $self->session->request);
 	unless ($self->{_requestedUrl}) {
-		$self->{_requestedUrl} = decode_utf8($self->session->request->path_info); # TODO - is path_info right?
-		my $gateway = $self->session->config->get("gateway");
+		$self->{_requestedUrl} = decode_utf8($request->path_info); # TODO - is path_info right?
+		my $gateway = $request->base->path;
 		$self->{_requestedUrl} =~ s/^$gateway([^?]*)\??.*$/$1/;
 	}
 	return $self->{_requestedUrl};