diff options
author | ivan <ivan> | 2004-02-25 05:11:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-02-25 05:11:09 +0000 |
commit | 91ae03f4b1254614ce089dc587cfd7620528384f (patch) | |
tree | ba1a3fe15cf44c94d466b094aca0bf5d6e960693 /FS/FS/CGI.pm | |
parent | be4f8ca23c7d32350737887144796264b90c4e9d (diff) |
kludge around it completely
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 8c9b326..905189e 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -214,8 +214,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 ); - $url->query(); + 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); |