my @batches;
if($opt_a) {
- @batches = qsearch('pay_batch', { 'status' => 'O', 'payby' => 'CHEK' })
- or log_info_and_die( "Finished: No open batches found.\n" );
+ local $@;
+
+ my %criteria= ( 'status' => 'O', 'payby' => 'CHEK' );
+ $criteria{'type'} = 'DEBIT' unless FS::pay_batch->can_handle_electronic_refunds('eft_canada');
+
+ eval {
+ @batches = qsearch('pay_batch', \%criteria)
+ };
+ log_error_and_die ("Fatal database error: $@")
+ if $@;
+
+ log_info_and_die( "Finished: No open batches found.\n" )
+ unless @batches;
}
else {
my $batchnum = shift;
die &HELP_MESSAGE if !$batchnum;
- @batches = qsearchs('pay_batch', { batchnum => $batchnum } );
+
+ local $@;
+ eval { @batches = qsearchs('pay_batch', { batchnum => $batchnum } ); };
+ log_error_and_die("Fatal database error: $@")
+ if $@;
+
log_error_and_die( "Can't find payment batch '$batchnum'\n" ) if !@batches;
+
+ if ($batches[0]->type eq "CREDIT") {
+ warn "running credit\n";
+ log_error_and_die( "Batch number $batchnum is a credit (batch refund) batch, and this format can not handle batch refunds.\n" )
+ unless FS::pay_batch->can_handle_electronic_refunds('eft_canada');
+ }
}
my $conf = new FS::Conf;
# Auto-approve and close the batch. Some false laziness with manual_approve.
my $batchnum = $pay_batch->batchnum;
my $error;
- foreach my $cpb ( qsearch('cust_pay_batch', { 'batchnum' => $batchnum } ) ) {
- $cpb->setfield('paid', $cpb->amount);
- $error = $cpb->approve($batchnum);
- last if $error;
- }
+
+ local $@;
+ eval {
+ foreach my $cpb ( qsearch('cust_pay_batch', { 'batchnum' => $batchnum } )) {
+ $cpb->setfield('paid', $cpb->amount);
+ $error = $cpb->approve($batchnum);
+ last if $error;
+ }
+ };
+ log_error_and_die("Fatal database error: $@")
+ if $@;
+
$error ||= $pay_batch->set_status('R');
log_error_and_die( "error closing batch $batchnum: $error\n\n" )
if $error;