From: ivan <ivan>
Date: Sat, 24 Oct 2009 00:16:28 +0000 (+0000)
Subject: eliminate warnings from Business::CreditCard about being passed an empty number
X-Git-Tag: freeside_1_9_2~280
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=508a74ac901619d11a190f9d3c9931785b7c3a3f;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';