diff options
Diffstat (limited to 'httemplate/search/report_cust_credit_void.html')
| -rw-r--r-- | httemplate/search/report_cust_credit_void.html | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/httemplate/search/report_cust_credit_void.html b/httemplate/search/report_cust_credit_void.html index e96708090..16a9e42d6 100644 --- a/httemplate/search/report_cust_credit_void.html +++ b/httemplate/search/report_cust_credit_void.html @@ -7,7 +7,7 @@ <& /elements/tr-select-user.html, 'label' => emt('Credit voids by employee: '), - 'access_user' => \%access_user, + 'access_user' => $access_user, &> <& /elements/tr-select-agent.html, @@ -37,13 +37,7 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); -my $sth = dbh->prepare("SELECT DISTINCT usernum FROM cust_credit_void") - or die dbh->errstr; -$sth->execute or die $sth->errstr; -my @usernum = map $_->[0], @{$sth->fetchall_arrayref}; -my %access_user = - map { $_ => qsearchs('access_user',{'usernum'=>$_})->username } - @usernum; +my $access_user = $FS::CurrentUser::CurrentUser->access_users_hashref('table' => 'cust_credit_void'); my $title = 'Voided credit report'; |