From 5ad34a92662a993a7fc56fdf33bb75c3dfbad070 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 12 Mar 2012 07:56:10 -0700
Subject: [PATCH] Plack::Request->path_info includes the query string!  Argh.

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

diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
index 0b2981d82..55917c3ef 100644
--- a/lib/WebGUI/Session/Url.pm
+++ b/lib/WebGUI/Session/Url.pm
@@ -324,7 +324,9 @@ Returns the URL of the page requested (no gateway, no query params, just the pag
 sub getRequestedUrl {
 	my $self = shift;
 	unless ($self->{_requestedUrl}) {
-		$self->{_requestedUrl} = decode_utf8($self->session->request->path_info);
+        my $path_info = $self->session->request->path_info;
+        $path_info =~ s/\?.*//;
+        $self->{_requestedUrl} = decode_utf8($path_info);
 	}
 	return $self->{_requestedUrl};
 }