[freeside-commits] freeside/FS/FS agent.pm,1.21,1.21.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv25635

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	agent.pm 
Log Message:
eliminate warnings from Business::CreditCard about being passed an empty number

Index: agent.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/agent.pm,v
retrieving revision 1.21
retrieving revision 1.21.2.1
diff -u -d -r1.21 -r1.21.2.1
--- agent.pm	25 Jun 2009 19:47:47 -0000	1.21
+++ agent.pm	24 Oct 2009 00:16:28 -0000	1.21.2.1
@@ -247,7 +247,7 @@
 
   #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';