my $extra_sql = " WHERE $agentnums_sql";
+#tiny bit of false laziness w/cust_pkg.pm::search
+if ( grep { $_ eq 'classnum' } $cgi->param ) {
+ if ( $cgi->param('classnum') eq '' ) {
+ $extra_sql .= ' AND part_pkg.classnum IS NULL';
+ } elsif ( $cgi->param('classnum') =~ /^(\d+)$/ && $1 ne '0' ) {
+ $extra_sql .= " AND part_pkg.classnum = $1 ";
+ }
+}
+
foreach my $part_pkg (qsearch({ 'table' => 'part_pkg',
'hashref' => {},
'extra_sql' => $extra_sql,
-<% include( '/elements/header.html', 'Package Summary Report' ) %>
+<& /elements/header.html, 'Package Summary Report' &>
<FORM ACTION="cust_pkg_summary.cgi" METHOD="GET">
</TH>
</TR>
- <% include ('/elements/tr-input-beginning_ending.html') %>
+ <& /elements/tr-input-beginning_ending.html &>
+
+ <& /elements/tr-select-pkg_class.html,
+ 'pre_options' => [ '0' => 'all' ],
+ 'empty_label' => '(empty class)',
+ &>
</TABLE>
</FORM>
-<% include('/elements/footer.html') %>
+<& /elements/footer.html &>
<%init>
die "access denied"