From 60562aad7e1d47a79a2d93db32106b3ae2d9df85 Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Thu, 6 Jul 2006 06:42:47 +0000
Subject: [PATCH] =?utf8?q?Bug=20340967:=20The=20login=20form=20appears=20t?=
 =?utf8?q?wice=20when=20trying=20to=20add=20an=20attachment=20(due=20to=20?=
 =?utf8?q?two=20consecutive=20calls=20to=20Bugzilla->login)=20-=20Patch=20?=
 =?utf8?q?by=20Fr=C3=A9d=C3=A9ric=20Buclin=20<LpSolit@gmail.com>=20r=3Dmka?=
 =?utf8?q?nat=20a=3Dmyk?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Bugzilla/Auth/Login/Cookie.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/Bugzilla/Auth/Login/Cookie.pm b/Bugzilla/Auth/Login/Cookie.pm
index 41d8a21525..e2cd8f5eef 100644
--- a/Bugzilla/Auth/Login/Cookie.pm
+++ b/Bugzilla/Auth/Login/Cookie.pm
@@ -22,6 +22,8 @@ use base qw(Bugzilla::Auth::Login);
 use Bugzilla::Constants;
 use Bugzilla::Util;
 
+use List::Util qw(first);
+
 use constant requires_persistence  => 0;
 use constant requires_verification => 0;
 use constant can_login => 0;
@@ -38,6 +40,19 @@ sub get_login_info {
     my $login_cookie = $cgi->cookie("Bugzilla_logincookie");
     my $user_id      = $cgi->cookie("Bugzilla_login");
 
+    # If cookies cannot be found, this could mean that they haven't
+    # been made available yet. In this case, look at Bugzilla_cookie_list.
+    unless ($login_cookie) {
+        my $cookie = first {$_->name eq 'Bugzilla_logincookie'}
+                            @{$cgi->{'Bugzilla_cookie_list'}};
+        $login_cookie = $cookie->value if $cookie;
+    }
+    unless ($user_id) {
+        my $cookie = first {$_->name eq 'Bugzilla_login'}
+                            @{$cgi->{'Bugzilla_cookie_list'}};
+        $user_id = $cookie->value if $cookie;
+    }
+
     if ($login_cookie && $user_id) {
         # Anything goes for these params - they're just strings which
         # we're going to verify against the db
-- 
2.47.3