diff options
Diffstat (limited to 'httemplate/search/pay_batch.cgi')
| -rwxr-xr-x | httemplate/search/pay_batch.cgi | 127 |
1 files changed, 127 insertions, 0 deletions
diff --git a/httemplate/search/pay_batch.cgi b/httemplate/search/pay_batch.cgi new file mode 100755 index 000000000..7b2b9f00b --- /dev/null +++ b/httemplate/search/pay_batch.cgi @@ -0,0 +1,127 @@ +% +% +%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 = str2time($1); +% push @where, "download >= $begin"; +%} +%if ( $cgi->param('ending') +% && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { +% $end = str2time($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?batchnum=", 'batchnum' ]; +% +<% include( 'elements/search.html', + 'title' => 'Payment Batches', + 'name_singular' => 'batch', + 'query' => { 'table' => 'pay_batch', + 'hashref' => $hashref, + 'extra_sql' => "$extra_sql 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" : '' }, + ], + ) + +%> + + |