1 <SELECT NAME="usernum">
3 % unless ( $opt{'multiple'} || $opt{'disable_empty'} ) {
4 <OPTION VALUE="">all</OPTION>
7 % foreach my $usernum (
8 % sort { $opt{'access_user'}->{$a} cmp $opt{'access_user'}->{$b} }
9 % keys %{ $opt{'access_user'} }
11 <OPTION VALUE="<%$usernum%>"><% $opt{'access_user'}->{$usernum} %></OPTION>
20 unless ( $opt{'access_user'} ) {
22 my $sth = dbh->prepare("
23 SELECT usernum, username FROM access_user
24 WHERE disabled = '' or disabled IS NULL
25 ") or die dbh->errstr;
26 $sth->execute or die $sth->errstr;
27 while ( my $row = $sth->fetchrow_arrayref ) {
28 $opt{'access_user'}->{$row->[0]} = $row->[1];