From: ivan <ivan>
Date: Wed, 25 Feb 2004 04:56:42 +0000 (+0000)
Subject: query strings get passed through sometimes?
X-Git-Tag: freeside_1_4_2beta1~243
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=d3bfa909241e66cf4c658180836cb2eb2e695f53;p=freeside.git

query strings get passed through sometimes?
---

diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm
index 86d20f6cb..f3c146a9c 100644
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -210,6 +210,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);