From: ivan <ivan>
Date: Wed, 25 Feb 2004 04:56:40 +0000 (+0000)
Subject: query strings get passed through sometimes?
X-Git-Tag: NET_WHOIS_RAW_0_31~129
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=sidebyside;h=0952f0a9264d575752393a0be1a3d3c6480f96ed;hp=e386fc15be6edadc7068dcb3e48fc81e37b3774b;p=freeside.git

query strings get passed through sometimes?
---

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);