[freeside-commits] freeside/fs_selfservice/FS-SelfService/cgi selfservice.cgi, 1.21.2.9, 1.21.2.10

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi
In directory wavetail.420.am:/tmp/cvs-serv24931

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	selfservice.cgi 
Log Message:
hopefully the final fix for the problems using remembered cards in self-service

Index: selfservice.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/cgi/selfservice.cgi,v
retrieving revision 1.21.2.9
retrieving revision 1.21.2.10
diff -u -d -r1.21.2.9 -r1.21.2.10
--- selfservice.cgi	26 Aug 2009 20:55:29 -0000	1.21.2.9
+++ selfservice.cgi	30 Sep 2009 19:33:16 -0000	1.21.2.10
@@ -317,7 +317,7 @@
 
 sub payment_results {
 
-  use Business::CreditCard;
+  use Business::CreditCard 0.30;
 
   #we should only do basic checking here for DoS attacks and things
   #that couldn't be constructed by the web form...  let process_payment() do
@@ -329,7 +329,7 @@
 
   my $payinfo = $cgi->param('payinfo');
   $payinfo =~ s/[^\dx]//g;
-  $payinfo =~ /^(\d{13,16})$/
+  $payinfo =~ /^([\dx]{13,16})$/
     #or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
     or die "illegal card"; #!!!
   $payinfo = $1;