diff options
author | ivan <ivan> | 2004-02-25 04:56:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-02-25 04:56:40 +0000 |
commit | 0952f0a9264d575752393a0be1a3d3c6480f96ed (patch) | |
tree | e30a7306f071dd982e9fbdf444c33e5e2b2dd4d1 | |
parent | e386fc15be6edadc7068dcb3e48fc81e37b3774b (diff) |
query strings get passed through sometimes?
-rw-r--r-- | FS/FS/CGI.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index f6153761b..86121f02e 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -215,6 +215,7 @@ sub popurl { my($up)=@_; my $cgi = &FS::UID::cgi; my $url = new URI::URL ( $cgi->isa('Apache') ? $cgi->uri : $cgi->url ); + $url->query(''); my(@path)=$url->path_components; splice @path, 0-$up; $url->path_components(@path); |