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 ++++++++------------------ 1 file changed, 8 insertions(+), 18 deletions(-) (limited to 'Bugzilla') 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 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 - -Identical to the CGI.pm C routine, except that the cookie path is -automatically added. - =item C This routine is identical to CGI.pm's C routine, except that the cookie -- cgit v1.2.3-24-g4f1b