\&FS::UI::Web::cust_fields,
@extra_fields,
],
+ 'color' => [ FS::UI::Web::cust_colors(),
+ map '', @extra_fields
+ ],
+ 'style' => [ FS::UI::Web::cust_styles(),
+ map '', @extra_fields
+ ],
+ 'align' => [ FS::UI::Web::cust_aligns(),
+ map '', @extra_fields
+ ],
+ 'links' => [ ( map { $_ ne 'Cust. Status' ? $link : '' }
+ FS::UI::Web::cust_header(
+ $cgi->param('cust_fields')
+ )
+ ),
+ map '', @extra_fields
+ ],
)
%>
+<%once>
+
+my $link = [ "${p}view/cust_main.cgi?", 'custnum' ];
+
+</%once>
<%init>
die "access denied"
}
+###
+# payby
+###
+
+my @payby = grep /^([A-Z]{4})$/, $cgi->param('payby');
+if ( @payby ) {
+ push @where, '( '. join(' OR ', map "cust_main.payby = '$_'", @payby). ' )';
+}
+
+##
+# amounts
+##
+
+my $balance_sql = FS::cust_main->balance_sql();
+
+push @where, map { s/current_balance/$balance_sql/; $_ }
+ FS::UI::Web::parse_lt_gt($cgi, 'current_balance');
+
##
# setup queries, subs, etc. for the search
##
my $count_query = "SELECT COUNT(*) FROM cust_main $extra_sql";
-my $select = '*';
+my $select = join(', ',
+ 'cust_main.custnum',
+ FS::UI::Web::cust_sql_fields($cgi->param('cust_fields')),
+ );
+
my (@extra_headers) = ();
my (@extra_fields) = ();