From 684db15cb430b95feda05de480c95d55c02a1222 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Wed, 8 Mar 2000 06:22:47 +0000
Subject: Patch by Dave Miller <dave@intrec.com> -- allow setting of
 confidentiality when submitting a new bug.

---
 enter_bug.cgi | 40 +++++++++++++++++++++++++++++++++++-----
 1 file changed, 35 insertions(+), 5 deletions(-)

(limited to 'enter_bug.cgi')

diff --git a/enter_bug.cgi b/enter_bug.cgi
index 292f25c60..d9c7ea24d 100755
--- a/enter_bug.cgi
+++ b/enter_bug.cgi
@@ -18,6 +18,7 @@
 # Netscape Communications Corporation. All Rights Reserved.
 # 
 # Contributor(s): Terry Weissman <terry@mozilla.org>
+#                 Dave Miller <dave@intrec.com>
 
 
 ########################################################################
@@ -35,11 +36,17 @@ use strict;
 
 require "CGI.pl";
 
-# Shut up misguided -w warnings about "used only once":
-use vars @::legal_platform,
-    @::legal_severity,
-    @::legal_opsys,
-    @::legal_priority;
+# Shut up misguided -w warnings about "used only once".  "use vars" just
+# doesn't work for me.
+
+sub sillyness {
+    my $zz;
+    $zz = $::unconfirmedstate;
+    $zz = @::legal_opsys;
+    $zz = @::legal_platform;
+    $zz = @::legal_priority;
+    $zz = @::legal_severity;
+}
 
 
 if (!defined $::FORM{'product'}) {
@@ -321,6 +328,29 @@ print "
     value_quote(formvalue('comment')) .
     "</TEXTAREA><BR></td>
   </tr>
+  <tr>
+   <td></td><td colspan=5>
+";
+
+if ($::usergroupset ne '0') {
+    SendSQL("SELECT bit, description FROM groups " .
+            "WHERE bit & $::usergroupset != 0 " .
+            "  AND isbuggroup != 0 ORDER BY bit");
+     while (MoreSQLData()) {
+        my ($bit, $description) = (FetchSQLData());
+        print BuildPulldown("bit-$bit",
+                            [["0",
+                             "People not in the \"$description\" group can see this bug"],
+                             ["1",
+                              "Only people in the \"$description\" group can see this bug"]],
+                            0);
+        print "<BR>\n";
+    }
+}
+
+print "
+   </td>
+  </tr>
   <tr>
     <td></td>
     <td colspan=5>
-- 
cgit v1.2.3-24-g4f1b