projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
3.92
[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 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 );
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;
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,1
6
}|\d{8,9})$/
+ $payinfo =~ /^(\d{13,1
9
}|\d{8,9})$/
or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
$payinfo = $1;
validate($payinfo)
or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
$payinfo = $1;
validate($payinfo)