1 <SELECT NAME="usernum">
3 % unless ( $opt{'multiple'} || $opt{'disable_empty'} ) {
4 <OPTION VALUE="">all</OPTION>
7 % foreach my $otaker ( @{ $opt{'otakers'} } ) {
8 <OPTION VALUE="<% shift(@{$opt{'usernums'}}) %>"><% $otaker %></OPTION>
17 unless ( $opt{'otakers'} ) {
19 my $sth = dbh->prepare("SELECT username,usernum FROM access_user".
20 " WHERE disabled = '' or disabled IS NULL")
22 $sth->execute or die $sth->errstr;
23 for($sth->fetchall_arrayref) {
24 $opt{'otakers'} = [ map { $_->[0] } @$_ ];
25 $opt{'usernums'} = [ map { $_->[1] } @$_ ];