From: ivan <ivan>
Date: Sat, 24 Oct 2009 00:16:27 +0000 (+0000)
Subject: eliminate warnings from Business::CreditCard about being passed an empty number
X-Git-Tag: root_of_svc_elec_features~746
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=533ec07f55d88660646c12ecec467b2946b6924f;p=freeside.git

eliminate warnings from Business::CreditCard about being passed an empty number
---

diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm
index 28d191a15..f17427517 100644
--- a/FS/FS/agent.pm
+++ b/FS/FS/agent.pm
@@ -247,7 +247,7 @@ sub payment_gateway {
 
   #look for an agent gateway override first
   my $cardtype;
-  if ( $options{method} && $options{method} eq 'CC' ) {
+  if ( $options{method} && $options{method} eq 'CC' && $options{payinfo} ) {
     $cardtype = cardtype($options{payinfo});
   } elsif ( $options{method} && $options{method} eq 'ECHECK' ) {
     $cardtype = 'ACH';