summaryrefslogtreecommitdiff
path: root/httemplate/search/report_cust_pkg_discount.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/search/report_cust_pkg_discount.html')
-rw-r--r--httemplate/search/report_cust_pkg_discount.html53
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>