diff options
Diffstat (limited to 'httemplate/search/pay_batch.cgi')
| -rwxr-xr-x | httemplate/search/pay_batch.cgi | 131 |
1 files changed, 0 insertions, 131 deletions
diff --git a/httemplate/search/pay_batch.cgi b/httemplate/search/pay_batch.cgi deleted file mode 100755 index 6d571b42f..000000000 --- a/httemplate/search/pay_batch.cgi +++ /dev/null @@ -1,131 +0,0 @@ -<% include( 'elements/search.html', - 'title' => 'Payment Batches', - 'name_singular' => 'batch', - 'query' => { 'table' => 'pay_batch', - 'hashref' => $hashref, - 'extra_sql' => $extra_sql, - 'order_by' => 'ORDER BY batchnum DESC', - }, - 'count_query' => "$count_query $extra_sql", - 'header' => [ 'Batch', - 'Type', - 'First Download', - 'Last Upload', - 'Item Count', - 'Amount', - 'Status', - ], - 'align' => 'rcllrrc', - 'fields' => [ 'batchnum', - sub { - FS::payby->shortname(shift->payby); - }, - sub { - my $self = shift; - my $_date = $self->download; - if ( $_date ) { - time2str("%a %b %e %T %Y", $_date); - } elsif ( $self->status eq 'O' ) { - 'Download batch'; - } else { - ''; - } - }, - sub { - my $self = shift; - my $_date = $self->upload; - if ( $_date ) { - time2str("%a %b %e %T %Y", $_date); - } elsif ( $self->status eq 'I' ) { - 'Upload results'; - } else { - ''; - } - }, - sub { - my $st = "SELECT COUNT(*) from cust_pay_batch WHERE batchnum=" . shift->batchnum; - my $sth = dbh->prepare($st) - or die dbh->errstr. "doing $st"; - $sth->execute - or die "Error executing \"$st\": ". $sth->errstr; - $sth->fetchrow_arrayref->[0]; - }, - sub { - my $st = "SELECT SUM(amount) from cust_pay_batch WHERE batchnum=" . shift->batchnum; - my $sth = dbh->prepare($st) - or die dbh->errstr. "doing $st"; - $sth->execute - or die "Error executing \"$st\": ". $sth->errstr; - $sth->fetchrow_arrayref->[0]; - }, - sub { - $statusmap{shift->status}; - }, - ], - 'links' => [ - $link, - '', - sub { shift->status eq 'O' ? $link : '' }, - sub { shift->status eq 'I' ? $link : '' }, - ], - 'size' => [ - '', - '', - sub { shift->status eq 'O' ? "+1" : '' }, - sub { shift->status eq 'I' ? "+1" : '' }, - ], - 'style' => [ - '', - '', - sub { shift->status eq 'O' ? "b" : '' }, - sub { shift->status eq 'I' ? "b" : '' }, - ], - ) - -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Financial reports') - || $FS::CurrentUser::CurrentUser->access_right('Process batches'); - -my %statusmap = ('I'=>'In Transit', 'O'=>'Open', 'R'=>'Resolved'); -my $hashref = {}; -my $count_query = 'SELECT COUNT(*) FROM pay_batch'; - -my($begin, $end) = ( '', '' ); - -my @where; -if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $begin = parse_datetime($1); - push @where, "download >= $begin"; -} -if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $end = parse_datetime($1) + 86399; - push @where, "download < $end"; -} - -my @status; -if ( $cgi->param('open') ) { - push @status, "O"; -} - -if ( $cgi->param('intransit') ) { - push @status, "I"; -} - -if ( $cgi->param('resolved') ) { - push @status, "R"; -} - -push @where, - scalar(@status) ? q!(status='! . join(q!' OR status='!, @status) . q!')! - : q!status='X'!; # kludgy, X is unused at present - -my $extra_sql = scalar(@where) ? 'WHERE ' . join(' AND ', @where) : ''; - -my $link = [ "${p}search/cust_pay_batch.cgi?dcln=1;batchnum=", 'batchnum' ]; - -</%init> |