<INPUT TYPE="hidden" NAME="magic" VALUE="advanced">
<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
- <TABLE BGCOLOR="#cccccc" CELLSPACING=0>
-
- <TR>
- <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1"><% mt('Search options') |h %></FONT></TH>
- </TR>
+ <FONT CLASS="fsinnerbox-title"><% emt('Search options') %></FONT>
+ <TABLE CLASS="fsinnerbox">
% unless ( $custnum ) {
+
<& /elements/tr-select-agent.html,
- 'curr_value' => scalar( $cgi->param('agentnum') ),
- 'disable_empty' => 0,
+ curr_value => scalar( $cgi->param('agentnum') ),
+ disable_empty => 0,
+ &>
+
+ <& /elements/tr-select-cust_main-status.html,
+ label => 'Customer Status',
+ field => 'cust_status',
+ &>
+
+%# meaning-less in the post-4.x world, customers can have multiple payment
+%# methods now
+
+%# <& /elements/tr-select-payby.html,
+%# label => emt('Payment method:'),
+%# payby_type => 'cust',
+%# multiple => 1,
+%# all_selected => 1,
+%# &>
+
+ <& /elements/tr-input-money.html,
+ label => 'Balance over',
+ field => 'balance',
+ &>
+
+ <& /elements/tr-input-text.html,
+ label => 'Balance age (days)',
+ field => 'balance_days',
+ size => 4,
&>
+% }
+
% # just this customer's domains?
%# <& /elements/tr-select-domain.html,
%# 'element_name' => 'domsvc',
%# 'curr_value' => scalar( $cgi->param('domsvc') ),
%# 'disable_empty' => 0,
%# &>
-% }
<& /elements/tr-selectmultiple-part_pkg.html &>
- <& /elements/tr-select-part_svc.html, 'svcdb'=>$svcdb &>
+ <& /elements/tr-select-part_svc.html,
+ 'svcdb' => $svcdb,
+ 'label' => 'Services',
+ &>
+
+ </TABLE>
+ <BR>
- <TR>
- <TH CLASS="background" COLSPAN=2> </TH>
- </TR>
-
- <TR>
- <TH CLASS="background" COLSPAN=2 ALIGN="left"><FONT SIZE="+1"><% mt('Display options') |h %></FONT></TH>
- </TR>
+ <FONT CLASS="fsinnerbox-title"><% emt('Display options') %></FONT>
+ <TABLE CLASS="fsinnerbox">
% #"package fields" ala advanced svc_acct search?
% #move to /elements/tr-select-cust_pkg-fields and use it from there if so...
my $title = $opt{'title'};
#false laziness w/report_cust_pkg.html
-my $custnum = '';
+my( $custnum, $cust_main) = ('', '');
if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
$custnum = $1;
my $cust_main = qsearchs({