From: ivan <ivan>
Date: Sun, 10 Oct 2010 01:38:21 +0000 (+0000)
Subject: ignore banned ACH on otaker upgrade as well
X-Git-Tag: TORRUS_1_0_9~237
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6e5ccd7b6724d9de26548200e655a7920ed07ac3

ignore banned ACH on otaker upgrade as well
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index d9cf8686c..c7a34e189 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1655,12 +1655,14 @@ sub check {
     $self->payinfo($payinfo);
     $self->paycvv('');
 
-    my $ban = qsearchs('banned_pay', $self->_banned_pay_hashref);
-    if ( $ban ) {
-      return 'Banned ACH account: banned on '.
-             time2str('%a %h %o at %r', $ban->_date).
-             ' by '. $ban->otaker.
-             ' (ban# '. $ban->bannum. ')';
+    unless ( $ignore_banned_card ) {
+      my $ban = qsearchs('banned_pay', $self->_banned_pay_hashref);
+      if ( $ban ) {
+        return 'Banned ACH account: banned on '.
+               time2str('%a %h %o at %r', $ban->_date).
+               ' by '. $ban->otaker.
+               ' (ban# '. $ban->bannum. ')';
+      }
     }
 
   } elsif ( $self->payby eq 'LECB' ) {
@@ -2413,6 +2415,7 @@ sub total_unapplied_credits {
       WHERE custnum = $custnum
   ";
 
+  #XXX fix harmless but loud: Argument "" isn't numeric in sprintf 
   sprintf( "%.2f", $self->scalar_sql($sql) );
 
 }
@@ -2451,6 +2454,7 @@ sub total_unapplied_payments {
       WHERE custnum = $custnum
   ";
 
+  #XXX fix harmless but loud: Argument "" isn't numeric in sprintf 
   sprintf( "%.2f", $self->scalar_sql($sql) );
 
 }
@@ -2489,6 +2493,7 @@ sub total_unapplied_refunds {
       WHERE custnum = $custnum
   ";
 
+  #XXX fix harmless but loud: Argument "" isn't numeric in sprintf 
   sprintf( "%.2f", $self->scalar_sql($sql) );
 
 }