-<% include('/elements/header.html', 'Package Report' ) %>
+<% include('/elements/header.html', $title ) %>
<FORM ACTION="cust_pkg.cgi" METHOD="GET">
<INPUT TYPE="hidden" NAME="magic" VALUE="bill">
+<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
<TABLE BGCOLOR="#cccccc" CELLSPACING=0>
<TR>
- <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left">
+ <TH CLASS="background" COLSPAN=2 ALIGN="left">
<FONT SIZE="+1">Search options</FONT>
</TH>
</TR>
+% 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);',
)
%>
-% foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
+% 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 (qw( setup last_bill bill adjourn susp expire contract_end cancel )) {
<TR>
<TD ALIGN="right" VALIGN="center"><% $label{$field} %></TD>
<% include( '/elements/tr-selectmultiple-part_pkg.html' ) %>
<TR>
- <TH BGCOLOR="#e8e8e8" COLSPAN=2> </TH>
+ <TH CLASS="background" COLSPAN=2> </TH>
</TR>
<TR>
- <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Display options</FONT></TH>
+ <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Display options</FONT></TH>
</TR>
<% include( '/elements/tr-select-cust-fields.html' ) %>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('List packages');
+my $title = 'Package Report';
+
+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 .= ': '. $cust_main->name;
+}
+
</%init>
<%once>
'adjourn' => 'Adjourns',
'susp' => 'Suspended',
'expire' => 'Expires',
+ 'contract_end' => 'Contract ends',
'cancel' => 'Cancelled',
);