From a05f74b064576abc0848248fd136048f95afabe0 Mon Sep 17 00:00:00 2001 From: Christopher Burger Date: Tue, 12 Mar 2019 17:02:07 -0400 Subject: RT# 82988 - added check for batch payment upload scripts to make sure they can handle credit batches. --- FS/bin/freeside-paymentech-upload | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'FS/bin/freeside-paymentech-upload') diff --git a/FS/bin/freeside-paymentech-upload b/FS/bin/freeside-paymentech-upload index 8ec8a5dd4..9903dd4aa 100755 --- a/FS/bin/freeside-paymentech-upload +++ b/FS/bin/freeside-paymentech-upload @@ -51,6 +51,12 @@ else { log_and_die("batchnum not passed\n".&usage) if !$batchnum; @batches = qsearchs('pay_batch', { batchnum => $batchnum } ); log_and_die("Can't find payment batch '$batchnum'\n") if !@batches; + + if ($batches[0]->type eq "CREDIT") { + warn "running credit\n"; + log_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('paymentech'); + } } my $conf = new FS::Conf; -- cgit v1.2.1