diff options
| author | bbaetz%student.usyd.edu.au <> | 2002-03-18 07:07:29 +0100 |
|---|---|---|
| committer | bbaetz%student.usyd.edu.au <> | 2002-03-18 07:07:29 +0100 |
| commit | fbc9c85ebe6fee0bd93c88e3f5c046172291f2dd (patch) | |
| tree | 9538e765c712437bcb33aeaa52b7e2eabb1c0e7b /editusers.cgi | |
| parent | 1183abae8ce1bf410a8a290ea0b4cc1283a68841 (diff) | |
| download | bugzilla-fbc9c85ebe6fee0bd93c88e3f5c046172291f2dd.tar.gz bugzilla-fbc9c85ebe6fee0bd93c88e3f5c046172291f2dd.tar.xz | |
Bug 92905 - perl error when editing user and no groups defined
r=justdave x 2
Diffstat (limited to 'editusers.cgi')
| -rwxr-xr-x | editusers.cgi | 40 |
1 files changed, 20 insertions, 20 deletions
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>"; |