From 901cdb792bd4a554ad68b3f92952953b5bff2059 Mon Sep 17 00:00:00 2001
From: "bbaetz%student.usyd.edu.au" <>
Date: Tue, 11 Jun 2002 20:32:01 +0000
Subject: Bug 150802 - default version for bug entry not read from cookies
 r=jouni x2

---
 enter_bug.cgi | 10 ++++++++--
 post_bug.cgi  |  3 ---
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/enter_bug.cgi b/enter_bug.cgi
index b5d9a66f9..726179722 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -300,10 +300,16 @@ $default{'rep_platform'} = pickplatform();
 $vars->{'op_sys'} = \@legal_opsys; 
 $default{'op_sys'} = pickos();
 
-# Default version is the last one in the list (hopefully the latest one).
+# Posting a bug sets a cookie for the current version, if one exists. Else,
+# the default version is the last one in the list (hopefully the latest one).
 # Eventually maybe each product should have a "current version" parameter.
 $vars->{'version'} = $::versions{$product} || [];
-$default{'version'} = $vars->{'version'}->[$#{$vars->{'version'}}];
+if (exists $::COOKIE{"VERSION-$product"} &&
+    lsearch($vars->{'version'}, $::COOKIE{"VERSION-$product"}) != -1) {
+    $default{'version'} = $::COOKIE{"VERSION-$product"};
+} else {
+    $default{'version'} = $vars->{'version'}->[$#{$vars->{'version'}}];
+}
 
 # There must be at least one status in @status.
 my @status = "NEW";
diff --git a/post_bug.cgi b/post_bug.cgi
index 5980f714b..42e550fbd 100755
--- a/post_bug.cgi
+++ b/post_bug.cgi
@@ -73,9 +73,6 @@ my $product = $::FORM{'product'};
 # Set cookies
 my $cookiepath = Param("cookiepath");
 if (exists $::FORM{'product'}) {
-    print "Set-Cookie: PLATFORM=$product ; path=$cookiepath ; \
-           expires=Sun, 30-Jun-2029 00:00:00 GMT\n";
-    
     if (exists $::FORM{'version'}) {           
         print "Set-Cookie: VERSION-$product=$::FORM{'version'} ; \
                path=$cookiepath ; expires=Sun, 30-Jun-2029 00:00:00 GMT\n"; 
-- 
cgit v1.2.3-24-g4f1b