From a3f818ac960d6c46f727f819d480308dd43deb37 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Thu, 27 Aug 1998 21:56:19 +0000
Subject: Fixed bug 539 -- cope with multiple products in the system.

---
 enter_bug.cgi | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

(limited to 'enter_bug.cgi')

diff --git a/enter_bug.cgi b/enter_bug.cgi
index f6fdb7dbf..fa2fb345a 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -21,6 +21,24 @@
 
 
 source CGI.tcl
+
+if {![info exists FORM(product)]} {
+    GetVersionTable
+    if {[array size versions] != 1} {
+        puts "Content-type: text/html\n"
+        PutHeader "Enter Bug" "Enter Bug"
+        
+        puts "<H2>First, you must pick a product on which to enter a bug.</H2>"
+        foreach p [array names versions] {
+            puts "<a href=enter_bug.cgi?product=$p&$buffer>$p</a><br>"
+        }
+        exit
+    }
+    set $FORM(product) [array names versions]
+}
+
+set product $FORM(product)
+
 confirm_login
 
 puts "Content-type: text/html\n"
@@ -41,27 +59,7 @@ proc pickplatform {} {
     }
 }
 
-proc pickproduct {} {
-    global FORM env COOKIE product versions
-    set product missingProductSoPickDefault
-    
-    set product [formvalue product]
-    if {$product == ""} {
-        if {[info exists COOKIE(PRODUCT)]} {
-            set product $COOKIE(PRODUCT)
-        } else {
-            switch -regexp $env(HTTP_USER_AGENT) {
-                {2.0Gold}       {set product "Hearst"}
-                {4\.0.*; *Nav} { set product "Ratbert"}
-                {4\.0}  {set product "Communicator"}
-                {3\.0}  {set product "Akbar"}
-                {2\.0}  {set product "Cheddar"}
-            }
-        }
-    }
-    if {![info exists versions($product)]} { set product "Communicator" }
-    return $product
-}
+
 
 proc pickversion {} {
     global env versions product FORM
@@ -131,7 +129,6 @@ proc formvalue {name {default ""}} {
 }
 
 GetVersionTable
-pickproduct
 
 set assign_element [GeneratePersonInput assigned_to 1 [formvalue assigned_to]]
 set cc_element [GeneratePeopleInput cc [formvalue cc ""]]
@@ -151,10 +148,13 @@ puts "
 <FORM NAME=enterForm METHOD=POST ACTION=\"post_bug.cgi\">
 <INPUT TYPE=HIDDEN NAME=bug_status VALUE=NEW>
 <INPUT TYPE=HIDDEN NAME=reporter VALUE=$COOKIE(Bugzilla_login)>
+<INPUT TYPE=HIDDEN NAME=product VALUE=$product>
   <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0>
   <TR>
     <td ALIGN=right valign=top><B>Product:</B></td>
-    <td>[Product_element $product]</td>
+    <td valign=top>$product</td>
+  </TR>
+  <TR>
     <td ALIGN=right valign=top><B>Version:</B></td>
     <td>[Version_element [pickversion] $product]</td>
     <td align=right valign=top><b>Component:</b></td>
-- 
cgit v1.2.3-24-g4f1b