19 digit visa and discover cards

[freeside.git] / fs_selfservice / FS-SelfService / cgi / signup.cgi

diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index 817fdd3..2411c54 100755 (executable)
--- 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)