1 <& /elements/header.html, mt($title) &>
3 <FORM ACTION="cust_pkg-date.html" METHOD="GET">
4 <INPUT TYPE="hidden" NAME="date" VALUE="<% $col %>">
6 <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
8 <& /elements/tr-select-agent.html,
9 'curr_value' => scalar( $cgi->param('agentnum') ),
13 <& /elements/tr-select-cust-fields.html &>
18 <INPUT TYPE="submit" VALUE="Get Report">
22 <% include('/elements/footer.html') %>
26 unless $FS::CurrentUser::CurrentUser->access_right('List packages');
30 'contract_end' => 'Contract end'
33 # or let the column be selected here?
34 my $col = $cgi->param('date');
35 die "invalid date column" unless $cols{$col};
36 my $title = 'Packages by ' . lc($cols{$col}) . ' date';