From 533ec07f55d88660646c12ecec467b2946b6924f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 24 Oct 2009 00:16:27 +0000
Subject: [PATCH] eliminate warnings from Business::CreditCard about being
 passed an empty number

---
 FS/FS/agent.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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';
-- 
2.11.0