X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_pay_batch.pm;h=f5e6a4bf1c6ef2ef6b8e6870f4a7e62f0d6f252b;hb=7f5e32275a5a2674fd1d220cd651b222b9831476;hp=171ec9fcfae5af7040599de357a6d585f6b80714;hpb=0fb307c305e4bc2c9c27dc25a3308beae3a4d33c;p=freeside.git diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index 171ec9fcf..f5e6a4bf1 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -300,26 +300,32 @@ sub approve { return; } -=item decline +=item decline [ REASON ] Decline this payment. This will replace the existing record with the same paybatchnum, set its status to 'Declined', and run collection events as appropriate. This should only be called from the batch import process. +REASON is a string description of the decline reason, defaulting to +'Returned payment'. + =cut sub decline { my $new = shift; - my $conf = new FS::Conf; + my $reason = shift || 'Returned payment'; + #my $conf = new FS::Conf; my $paybatchnum = $new->paybatchnum; my $old = qsearchs('cust_pay_batch', { paybatchnum => $paybatchnum }) or return "paybatchnum $paybatchnum not found"; if ( $old->status ) { # Handle the case where payments are rejected after the batch has been - # approved. Only if manual approval is enabled. - if ( $conf->exists('batch-manual_approval') - and lc($old->status) eq 'approved' ) { + # approved. FS::pay_batch::import_results won't allow results to be + # imported to a closed batch unless batch-manual_approval is enabled, + # so we don't check it here. +# if ( $conf->exists('batch-manual_approval') and + if ( lc($old->status) eq 'approved' ) { # Void the payment my $cust_pay = qsearchs('cust_pay', { custnum => $new->custnum, @@ -329,7 +335,7 @@ sub decline { # should never happen... return "failed to revoke paybatchnum $paybatchnum, payment not found"; } - $cust_pay->void('Returned payment'); + $cust_pay->void($reason); } else { # normal case: refuse to do anything