Undoing patch for removing query information from path_info. Helps to keep ; and ? straight when building URLs by hand.

perlDreamer · perlDreamer · commit 21546e182184 · 2012-03-12T13:59:45.000-07:00
diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
@@ -325,7 +325,7 @@ sub getRequestedUrl {
 	my $self = shift;
 	unless ($self->{_requestedUrl}) {
         my $path_info = $self->session->request->path_info;
-        $path_info =~ s/\?.*//;
+        #$path_info =~ s/\?.*//;
         $self->{_requestedUrl} = decode_utf8($path_info);
 	}
 	return $self->{_requestedUrl};

Original file line number	Diff line number	Diff line change
`@@ -325,7 +325,7 @@ sub getRequestedUrl {`
`325`	`325`	`my $self = shift;`
`326`	`326`	`unless ($self->{_requestedUrl}) {`
`327`	`327`	`my $path_info = $self->session->request->path_info;`
`328`		`- $path_info =~ s/\?.*//;`
	`328`	`+ #$path_info =~ s/\?.*//;`
`329`	`329`	`$self->{_requestedUrl} = decode_utf8($path_info);`
`330`	`330`	`}`
`331`	`331`	`return $self->{_requestedUrl};`