Skip to content

bugzilla
bugzilla
Commit fbc9c85e authored by bbaetz%student.usyd.edu.au's avatar bbaetz%student.usyd.edu.au
Browse files
Options

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

r=justdave x 2
parent 1183abae
Hide whitespace changes
Inline Side-by-side
Showing with 20 additions and 20 deletions
editusers.cgi
View file @ fbc9c85e
...@@ -145,17 +145,17 @@ sub EmitFormElements ($$$$$) ...@@ -145,17 +145,17 @@ sub EmitFormElements ($$$$$)
print "</TR><TR>\n<TD ALIGN=CENTER><B>|</B></TD>\n"; 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"; print "<TD COLSPAN=2 ALIGN=LEFT><B>User is a member of these groups</B></TD>\n";
} while (MoreSQLData()) {
while (MoreSQLData()) { my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData(); print "</TR><TR>\n";
print "</TR><TR>\n"; if ($editall) {
if ($editall) { $blchecked = ($blchecked) ? "CHECKED" : "";
$blchecked = ($blchecked) ? "CHECKED" : ""; print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
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"; print "</TR></TABLE></TD>\n";
...@@ -171,17 +171,17 @@ sub EmitFormElements ($$$$$) ...@@ -171,17 +171,17 @@ sub EmitFormElements ($$$$$)
print "</TR><TR>\n<TD ALIGN=CENTER><B>|</B></TD>\n"; 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"; print "<TD COLSPAN=2 ALIGN=LEFT><B>User has these priveleges</B></TD>\n";
} while (MoreSQLData()) {
while (MoreSQLData()) { my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData();
my ($bit,$name,$description,$checked,$blchecked) = FetchSQLData(); print "</TR><TR>\n";
print "</TR><TR>\n"; if ($editall) {
if ($editall) { $blchecked = ($blchecked) ? "CHECKED" : "";
$blchecked = ($blchecked) ? "CHECKED" : ""; print "<TD ALIGN=CENTER><INPUT TYPE=CHECKBOX NAME=\"blbit_$name\" $blchecked VALUE=\"$bit\"></TD>";
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 { } else {
print "</TR><TR><TH ALIGN=RIGHT>Groups and<br>Priveleges:</TH><TD><TABLE><TR>"; print "</TR><TR><TH ALIGN=RIGHT>Groups and<br>Priveleges:</TH><TD><TABLE><TR>";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment