From fbc9c85ebe6fee0bd93c88e3f5c046172291f2dd Mon Sep 17 00:00:00 2001
From: "bbaetz%student.usyd.edu.au" <>
Date: Mon, 18 Mar 2002 06:07:29 +0000
Subject: Bug 92905 - perl error when editing user and no groups defined
 r=justdave x 2

---
 editusers.cgi | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'editusers.cgi')

diff --git a/editusers.cgi b/editusers.cgi
index ad00dd9ae..bc864bcf0 100755
--- a/editusers.cgi
+++ b/editusers.cgi
@@ -145,17 +145,17 @@ sub EmitFormElements ($$$$$)
                 print "</TR><TR>\n<TD ALIGN=CENTER><B>|</B></TD>\n";
             }
             print "<TD COLSPAN=2 ALIGN=LEFT><B>User is a member of these groups</B></TD>\n";
-        }
-        while (MoreSQLData()) {
-            my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
-            print "</TR><TR>\n";
-            if ($editall) {
-                $blchecked = ($blchecked) ? "CHECKED" : "";
-                print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
+            while (MoreSQLData()) {
+                my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
+                print "</TR><TR>\n";
+                if ($editall) {
+                    $blchecked = ($blchecked) ? "CHECKED" : "";
+                    print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
+                }
+                $checked = ($checked) ? "CHECKED" : "";
+                print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"bit_$name\" $checked VALUE=\"$bit\"></TD>";
+                print "<TD><B>" . ucfirst($name) . "</B>: $description</TD>\n";
             }
-            $checked = ($checked) ? "CHECKED" : "";
-            print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"bit_$name\" $checked VALUE=\"$bit\"></TD>";
-            print "<TD><B>" . ucfirst($name) . "</B>: $description</TD>\n";
         }
         print "</TR></TABLE></TD>\n";
     
@@ -171,17 +171,17 @@ sub EmitFormElements ($$$$$)
                 print "</TR><TR>\n<TD ALIGN=CENTER><B>|</B></TD>\n";
             }
             print "<TD COLSPAN=2 ALIGN=LEFT><B>User has these priveleges</B></TD>\n";
-        }
-        while (MoreSQLData()) {
-            my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
-            print "</TR><TR>\n";
-            if ($editall) {
-                $blchecked = ($blchecked) ? "CHECKED" : "";
-                print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
+            while (MoreSQLData()) {
+                my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
+                print "</TR><TR>\n";
+                if ($editall) {
+                    $blchecked = ($blchecked) ? "CHECKED" : "";
+                    print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
+                }
+                $checked = ($checked) ? "CHECKED" : "";
+                print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"bit_$name\" $checked VALUE=\"$bit\"></TD>";
+                print "<TD><B>" . ucfirst($name) . "</B>: $description</TD>\n";
             }
-            $checked = ($checked) ? "CHECKED" : "";
-            print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"bit_$name\" $checked VALUE=\"$bit\"></TD>";
-            print "<TD><B>" . ucfirst($name) . "</B>: $description</TD>\n";
         }
     } else {
         print "</TR><TR><TH ALIGN=RIGHT>Groups and<br>Priveleges:</TH><TD><TABLE><TR>";        
-- 
cgit v1.2.3-24-g4f1b