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 6d571b4..0000000
--- 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>