<& /elements/header.html, mt($title, @title_arg) &>

% unless ( $custnum ) { <% include( '/elements/tr-select-agent.html', 'curr_value' => scalar( $cgi->param('agentnum') ), 'disable_empty' => 0, ) %> % } <% include( '/elements/tr-select-cust_pkg-status.html', 'onchange' => 'status_changed(this);', ) %> <% include( '/elements/tr-select-pkg_class.html', 'pre_options' => [ '0' => 'all' ], 'empty_label' => '(empty class)', ) %> % if ( scalar( qsearch( 'part_pkg_report_option', { 'disabled' => '' } ) ) ) { <% include( '/elements/tr-select-table.html', 'label' => 'Report classes', 'table' => 'part_pkg_report_option', 'name_col' => 'name', 'hashref' => { 'disabled' => '' }, 'element_name' => 'report_option', 'multiple' => 'multiple', ) %> % } % foreach my $field (@date_fields) { % } <% include( '/elements/tr-checkbox.html', 'label' => 'Custom packages', 'field' => 'custom', 'value' => 1, 'onchange' => 'custom_changed(this);', ) %> <% include( '/elements/tr-selectmultiple-part_pkg.html' ) %> <% include( '/elements/tr-select-cust-fields.html' ) %>

Search options
<% $label{$field} %>	<% include( '/elements/tr-input-beginning_ending.html', prefix => $field, layout => 'horiz', ) %>
Display options

<% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List packages'); my $title = 'Package Report'; #false laziness w/report_cust_bill.html my @title_arg = (); my $custnum = ''; if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { $custnum = $1; my $cust_main = qsearchs({ 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, }) or die "unknown custnum $custnum"; $title .= ': [_1]'; push @title_arg, $cust_main->name; } <%once> tie my %label, 'Tie::IxHash', 'setup' => 'Setup', 'last_bill' => 'Last bill', 'bill' => 'Next bill', 'adjourn' => 'Adjourns', 'susp' => 'Suspended', 'dundate' => 'Suspension delayed until', 'expire' => 'Expires', 'contract_end' => 'Contract ends', 'cancel' => 'Cancelled', ; my @date_fields = keys %label; #false laziness w/cust_pkg.cgi my %disable = ( 'all' => {}, 'not yet billed' => { 'setup'=>1, 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, }, 'one-time charge' => { 'last_bill'=>1, 'bill'=>1, 'adjourn'=>1, 'susp'=>1, 'expire'=>1, 'cancel'=>1, 'contract_end'=>1, 'dundate'=>1, }, 'active' => { 'susp'=>1, 'cancel'=>1 }, 'suspended' => { 'cancel'=>1, 'dundate'=>1, }, 'cancelled' => {}, '' => {}, ); #hmm? my %checkbox = ( 'setup' => 0, 'last_bill' => 0, 'bill' => 0, 'susp' => 1, 'dundate' => 1, 'expire' => 1, 'cancel' => 1, );