From 218999dc8b24961eb2f1e892d9eddb96d70a405f Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Wed, 27 Jun 2001 08:44:32 +0000
Subject: Fix for bug 80289: Group restrictions are now identified with
 checkboxes instead of select widgets.  Also, product groups are now only
 offered if they are either already set, or match the current product (i.e.
 the option to set a product bit for a product other than the one the bug is
 in is no longer available) This results in much less clutter for the admin
 folks on sites with lots of products. Patch by Joe Robbins
 <jmrobins@tgix.com> r= justdave@syndicomm.com

---
 buglist.cgi | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

(limited to 'buglist.cgi')

diff --git a/buglist.cgi b/buglist.cgi
index 58279a1c7..6c0ff1e7f 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -1450,17 +1450,21 @@ document.write(\" <input type=button value=\\\"Uncheck All\\\" onclick=\\\"SetCh
 <TEXTAREA WRAP=HARD NAME=comment ROWS=5 COLS=80></TEXTAREA><BR>";
 
 if ($::usergroupset ne '0' && $buggroupset =~ /^\d+$/) {
-    SendSQL("select bit, description, (bit & $buggroupset != 0) from groups where bit & $::usergroupset != 0 and isbuggroup != 0 order by bit");
+    SendSQL("select bit, description, (bit & $buggroupset != 0) from groups where bit & $::usergroupset != 0 and isbuggroup != 0 order by description");
+    # We only print out a header bit for this section if there are any
+    # results.
+    if(MoreSQLData()) {
+      print "<br><b>Only users in the selected groups can view this bug:</b><br>\n";
+    }
     while (MoreSQLData()) {
         my ($bit, $description, $ison) = (FetchSQLData());
-        my $check0 = !$ison ? " SELECTED" : "";
-        my $check1 = $ison ? " SELECTED" : "";
-        print "<select name=bit-$bit><option value=0$check0>\n";
-        print "People not in the \"$description\" group can see these bugs\n";
-        print "<option value=1$check1>\n";
-        print "Only people in the \"$description\" group can see these bugs\n";
-        print "</select><br>\n";
-    }
+        # Modifying this to use checkboxes instead
+        my $checked = $ison ? " CHECKED" : "";
+        # indent these a bit
+        print "&nbsp;&nbsp;&nbsp;&nbsp;";
+        print "<input type=checkbox name=\"bit-$bit\" value=1$checked>\n";
+        print "$description<br>\n";
+      }
 }
 
 
-- 
cgit v1.2.3-24-g4f1b