diff options
Diffstat (limited to 'httemplate/search/report_cust_pkg_discount.html')
-rw-r--r-- | httemplate/search/report_cust_pkg_discount.html | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/httemplate/search/report_cust_pkg_discount.html b/httemplate/search/report_cust_pkg_discount.html deleted file mode 100644 index 31774c384..000000000 --- a/httemplate/search/report_cust_pkg_discount.html +++ /dev/null @@ -1,53 +0,0 @@ -<% include('/elements/header.html', 'Package discount report' ) %> - -<FORM ACTION="cust_pkg_discount.html" METHOD="GET"> - - -<TABLE> - - <TR> - <TD>Discount status</TD> - <TD> - <SELECT NAME="status"> - <OPTION VALUE="active">Active - <OPTION VALUE="expired">Expired - <OPTION VALUE="">(all) - </SELECT> - </TD> - </TR> - - <% include( '/elements/tr-select-user.html', - 'label' => 'Discounts by employee: ', - 'access_user' => \%access_user, - ) - %> - - <% include( '/elements/tr-select-agent.html', - 'curr_value' => scalar( $cgi->param('agentnum') ), - 'label' => 'for agent: ', - 'disable_empty' => 0, - ) - %> - -</TABLE> - -<BR> -<INPUT TYPE="submit" VALUE="Get Report"> - -</FORM> - -<% include('/elements/footer.html') %> -<%init> - -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; - -</%init> |