| … | |
… | |
| 244 | # CGI::td(CGI::checkbox(-name=>"hcAllUsers", -value=>"1", -label=>"")), |
244 | # CGI::td(CGI::checkbox(-name=>"hcAllUsers", -value=>"1", -label=>"")), |
| 245 | # CGI::td({-colspan=>"2"}, "All Users"), |
245 | # CGI::td({-colspan=>"2"}, "All Users"), |
| 246 | #); |
246 | #); |
| 247 | #print CGI::Tr(CGI::td({-colspan=>"3"}, " ")); |
247 | #print CGI::Tr(CGI::td({-colspan=>"3"}, " ")); |
| 248 | my @users; |
248 | my @users; |
| 249 | push @users, $self->{cldb}->getUser($_) |
249 | push @users, $self->{db}->getUser($_) |
| 250 | foreach ($self->{cldb}->listUsers()); |
250 | foreach ($self->{db}->listUsers()); |
| 251 | @users = sort { $a->last_name cmp $b->last_name } @users; |
251 | @users = sort { $a->last_name cmp $b->last_name } @users; |
| 252 | foreach my $user (@users) { |
252 | foreach my $user (@users) { |
| 253 | my $checked = grep { $_ eq $user->user_id } @{$self->{users}}; |
253 | my $checked = grep { $_ eq $user->user_id } @{$self->{users}}; |
| 254 | print CGI::Tr(CGI::td([ |
254 | print CGI::Tr(CGI::td([ |
| 255 | CGI::checkbox(-name=>"hcUser", -value=>$user->user_id, -label=>"", -checked=>$checked), |
255 | CGI::checkbox(-name=>"hcUser", -value=>$user->user_id, -label=>"", -checked=>$checked), |