Bug 92905 - perl error when editing user and no groups defined

editusers.cgi

@@ -145,7 +145,6 @@ 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";
@@ -157,6 +156,7 @@ sub EmitFormElements ($$$$$)
                 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";
     
         print "</TR><TR><TH VALIGN=TOP ALIGN=RIGHT>Privileges:</TH><TD><TABLE><TR>";
@@ -171,7 +171,6 @@ 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";
@@ -183,6 +182,7 @@ sub EmitFormElements ($$$$$)
                 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>";        
         print "<TD COLSPAN=3>The new user will be inserted into groups " .