1 <& elements/search.html,
2 'title' => emt('Customer stored payment information results'),
4 'name' => emt('cards or bank accounts'), #??
6 'count_query' => $count_query,
7 'header' => [ @headers,
8 FS::UI::Web::cust_header(
9 $cgi->param('cust_fields')
14 \&FS::UI::Web::cust_fields,
18 FS::UI::Web::cust_colors(),
22 FS::UI::Web::cust_styles(),
26 FS::UI::Web::cust_aligns(),
30 ( map { $_ ne 'Cust. Status' ? $link : '' }
31 FS::UI::Web::cust_header(
32 $cgi->param('cust_fields')
40 unless $FS::CurrentUser::CurrentUser->access_right('Advanced customer search');
45 paydate_year paydate_month
48 for my $param ( @scalars ) {
49 $search_hash{$param} = scalar( $cgi->param($param) )
50 if length($cgi->param($param));
54 for my $param (qw( payby )) {
55 $search_hash{$param} = [ $cgi->param($param) ];
62 my $sql_query = FS::cust_payby->search_sql(\%search_hash);
63 my $count_query = delete($sql_query->{'count_query'});
65 my @headers = ( 'Payment information',
68 my @fields = ( sub { my $cust_payby = shift;
69 FS::payby->shortname( $cust_payby->payby ). ' '.
74 my $link = [ "${p}view/cust_main.cgi?", 'custnum' ];
83 #if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
86 # $uri->query_form( \%search_hash );
87 # my $query = $uri->query;
89 # push @$menubar, emt('Email a notice to these customers') =>
90 # "${p}misc/email-customers.html?table=cust_main&$query",