From 30f771ec4e824b19fe9a9ee93dc689cc7cb23236 Mon Sep 17 00:00:00 2001
From: "bbaetz%acm.org" <>
Date: Fri, 9 May 2003 09:32:18 +0000
Subject: Bug 204592 - invalid column name error r,a=myk

---
 Bugzilla/CGI.pm | 26 ++++++++------------------
 buglist.cgi     |  3 +--
 2 files changed, 9 insertions(+), 20 deletions(-)

diff --git a/Bugzilla/CGI.pm b/Bugzilla/CGI.pm
index e87c89a5e..bc70d2f32 100644
--- a/Bugzilla/CGI.pm
+++ b/Bugzilla/CGI.pm
@@ -116,18 +116,6 @@ sub multipart_init {
     return $self->SUPER::multipart_init(@_);
 }
 
-sub cookie {
-    my $self = shift;
-
-    # Add the default path in, but only if we're fetching stuff
-    # (This test fails for |$cgi->cookie(-name=>'x')| which _is_ meant to
-    # fetch, but thats an ugly notation for the fetch case which we shouldn't
-    # be using)
-    unshift(@_, '-path' => Param('cookiepath')) if scalar(@_)>1;
-
-    return $self->SUPER::cookie(@_);
-}
-
 # The various parts of Bugzilla which create cookies don't want to have to
 # pass them arround to all of the callers. Instead, store them locally here,
 # and then output as required from |headers|.
@@ -138,7 +126,14 @@ sub cookie {
 sub send_cookie {
     my $self = shift;
 
-    my $cookie = $self->cookie(@_);
+    # Add the default path in
+    unshift(@_, '-path' => Param('cookiepath'));
+
+    # Use CGI::Cookie directly, because CGI.pm's |cookie| method gives the
+    # current value if there isn't a -value attribute, which happens when
+    # we're expiring an entry.
+    require CGI::Cookie;
+    my $cookie = CGI::Cookie->new(@_);
 
     # XXX - mod_perl
     print "Set-Cookie: $cookie\r\n";
@@ -191,11 +186,6 @@ I<Bugzilla::CGI> also includes additional functions.
 This returns a sorted string of the parameters, suitable for use in a url.
 Values in C<@exclude> are not included in the result.
 
-=item C<cookie>
-
-Identical to the CGI.pm C<cookie> routine, except that the cookie path is
-automatically added.
-
 =item C<send_cookie>
 
 This routine is identical to CGI.pm's C<cookie> routine, except that the cookie
diff --git a/buglist.cgi b/buglist.cgi
index 06c00db93..dbbcc7085 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -808,9 +808,8 @@ if ($format->{'extension'} eq "html") {
     my $cookiepath = Param("cookiepath");
 
     if ($order) {
-        my $qorder = url_quote($order);
         $cgi->send_cookie(-name => 'LASTORDER',
-                          -value => $qorder,
+                          -value => $order,
                           -expires => 'Fri, 01-Jan-2038 00:00:00 GMT');
     }
     my $bugids = join(":", @bugidlist);
-- 
cgit v1.2.3-24-g4f1b