X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2FCGI.pm;h=25f0de7b3f1cb0948401b8ef4fec15442cb62779;hb=a88587aa04807475313e622c1ac4812a172fa39a;hp=86d20f6cb99fd0787a69b51f9e64fcfe355bad46;hpb=f84c9eb1c4479cc84ec62b0822c18579ec8f683a;p=freeside.git
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index 86d20f6cb..25f0de7b3 100644
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -59,7 +59,7 @@ sub header {
-
+
$title
@@ -209,7 +209,9 @@ Returns current URL with LEVEL levels of path removed from the end (default 0).
sub popurl {
my($up)=@_;
my $cgi = &FS::UID::cgi;
- my $url = new URI::URL ( $cgi->isa('Apache') ? $cgi->uri : $cgi->url );
+ my $url_string = $cgi->isa('Apache') ? $cgi->uri : $cgi->url;
+ $url_string =~ s/\?.*//;
+ my $url = new URI::URL ( $url_string );
my(@path)=$url->path_components;
splice @path, 0-$up;
$url->path_components(@path);