Plack::Request->path_info includes the query string! Argh.

perlDreamer · perlDreamer · commit 5ad34a92662a · 2012-03-12T07:56:10.000-07:00
diff --git 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};
 }

Original file line number	Diff line number	Diff line change
`@@ -324,7 +324,9 @@ Returns the URL of the page requested (no gateway, no query params, just the pag`
`324`	`324`	`sub getRequestedUrl {`
`325`	`325`	`my $self = shift;`
`326`	`326`	`unless ($self->{_requestedUrl}) {`
`327`		`- $self->{_requestedUrl} = decode_utf8($self->session->request->path_info);`
	`327`	`+ my $path_info = $self->session->request->path_info;`
	`328`	`+ $path_info =~ s/\?.*//;`
	`329`	`+ $self->{_requestedUrl} = decode_utf8($path_info);`
`328`	`330`	`}`
`329`	`331`	`return $self->{_requestedUrl};`
`330`	`332`	`}`