X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.cgi;h=2411c54a708637e2ddd3e90e841d2b700e28132e;hb=0cc73df2d8ca19b1f8c2fc93bd4f2468b738b969;hp=817fdd310a987a6cd7ccef6b2c82b5701cb417ae;hpb=04f93bdaea44ad9194bd9c6960d4e3d87077cd4e;p=freeside.git

diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index 817fdd310..2411c54a7 100755
--- a/fs_selfservice/FS-SelfService/cgi/signup.cgi
+++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi
@@ -19,7 +19,7 @@ use CGI;
 #use CGI::Carp qw(fatalsToBrowser);
 use Tie::IxHash;
 use Text::Template;
-use Business::CreditCard;
+use Business::CreditCard 0.35;
 use HTTP::BrowserDetect;
 use HTML::Widgets::SelectLayers;
 use FS::SelfService qw( signup_info new_customer );
@@ -201,7 +201,7 @@ if ( $magic eq 'process' || $action eq 'process_signup' ) {
       my $payinfo = $cgi->param('payinfo');
       $payinfo =~ s/\D//g;
 
-      $payinfo =~ /^(\d{13,16}|\d{8,9})$/
+      $payinfo =~ /^(\d{13,19}|\d{8,9})$/
         or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
       $payinfo = $1;
       validate($payinfo)