%
%   my $title = 'Credit Search Results';
%   #my( $count_query, $sql_query );
%
%   my @search = ();
%
%   if ( $cgi->param('otaker') && $cgi->param('otaker') =~ /^([\w\.\-]+)$/ ) {
%     push @search, "cust_credit.otaker = '$1'";
%   }
%
%   if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) {
%     push @search, "agentnum = $1";
%     my $agent = qsearchs('agent', { 'agentnum' => $1 } );
%     die "unknown agentnum $1" unless $agent;
%     $title = $agent->agent. " $title";
%   }
%
%   my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
%   push @search, "_date >= $beginning ",
%                 "_date <= $ending";
%
%   push @search, FS::UI::Web::parse_lt_gt($cgi, 'amount' );
%
%   #here is the agent virtualization
%   push @search, $FS::CurrentUser::CurrentUser->agentnums_sql;
%
%   my $where = 'WHERE '. join(' AND ', @search);
%
%   my $count_query = 'SELECT COUNT(*), SUM(amount) '.
%                     'FROM cust_credit LEFT JOIN cust_main USING ( custnum ) '.
%                     $where;
%
%   my $sql_query   = {
%     'table'     => 'cust_credit',
%     'select'    => join(', ',
%                      'cust_credit.*',
%                      'cust_main.custnum as cust_main_custnum',
%                      FS::UI::Web::cust_sql_fields(),
%                    ),
%     'hashref'   => {},
%     'extra_sql' => $where,
%     'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
%   };
%
%     my $clink = sub {
%       my $cust_bill = shift;
%       $cust_bill->cust_main_custnum
%         ? [ "${p}view/cust_main.cgi?", 'custnum' ]
%         : '';
%     };
%
%
<% include( 'elements/search.html',
                 'title'       => $title,
                 'name'        => 'credits',
                 'query'       => $sql_query,
                 'count_query' => $count_query,
                 'count_addl'  => [ '$%.2f total credited', ],
                 #'redirect'    => $link,
                 'header'      => [ 'Amount',
                                    'Date',
                                    FS::UI::Web::cust_header(),
                                    'By',
                                    'Reason'
                                  ],
                 'fields'      => [
                   #'crednum',
                   sub { sprintf('$%.2f', shift->amount ) },
                   sub { time2str('%b %d %Y', shift->_date ) },
                   \&FS::UI::Web::cust_fields,
                   'otaker',
                   'reason',
                 ],
                 #'align' => 'rrrllll',
                 'align' => 'rr',
                 'links' => [
                   '',
                   '',
                   ( map { $clink } FS::UI::Web::cust_header() ),
                   '',
                   '',
                 ],
      )
%>