diff options
Diffstat (limited to 'httemplate/search/report_cust_pkg_discount.html')
| -rw-r--r-- | httemplate/search/report_cust_pkg_discount.html | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/httemplate/search/report_cust_pkg_discount.html b/httemplate/search/report_cust_pkg_discount.html index 7f0e55fed..2b9052f5b 100644 --- a/httemplate/search/report_cust_pkg_discount.html +++ b/httemplate/search/report_cust_pkg_discount.html @@ -23,7 +23,7 @@ <& /elements/tr-select-user.html, 'label' => 'Discounts by employee: ', - 'access_user' => \%access_user, + 'access_user' => $access_user, &> <& /elements/tr-select-agent.html, @@ -45,12 +45,6 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Financial reports'); -my $sth = dbh->prepare("SELECT DISTINCT usernum FROM cust_pkg_discount") - 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_pkg_discount'); </%init> |