projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9db0b83
)
isracard support in self-service and backend payment processing, RT#13894
author
ivan
<ivan>
Tue, 2 Aug 2011 20:17:02 +0000
(20:17 +0000)
committer
ivan
<ivan>
Tue, 2 Aug 2011 20:17:02 +0000
(20:17 +0000)
fs_selfservice/FS-SelfService/cgi/agent.cgi
patch
|
blob
|
history
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
patch
|
blob
|
history
fs_selfservice/FS-SelfService/cgi/signup.cgi
patch
|
blob
|
history
httemplate/misc/process/payment.cgi
patch
|
blob
|
history
httemplate/search/cust_main.cgi
patch
|
blob
|
history
diff --git
a/fs_selfservice/FS-SelfService/cgi/agent.cgi
b/fs_selfservice/FS-SelfService/cgi/agent.cgi
index
6e8de61
..
0af94cd
100644
(file)
--- a/
fs_selfservice/FS-SelfService/cgi/agent.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/agent.cgi
@@
-150,7
+150,7
@@
sub process_signup {
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,16})$/
+ $payinfo =~ /^(\d{13,16}
|\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)
diff --git
a/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
b/fs_selfservice/FS-SelfService/cgi/selfservice.cgi
index
8f1c4a5
..
fe8d082
100644
(file)
--- a/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/selfservice.cgi
@@
-493,7
+493,7
@@
sub payment_results {
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/[^\dx]//g;
my $payinfo = $cgi->param('payinfo');
$payinfo =~ s/[^\dx]//g;
- $payinfo =~ /^([\dx]{13,16})$/
+ $payinfo =~ /^([\dx]{13,16}
|[\dx]{8,9}
)$/
#or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
or die "illegal card"; #!!!
$payinfo = $1;
#or $error ||= $init_data->{msgcat}{invalid_card}; #. $self->payinfo;
or die "illegal card"; #!!!
$payinfo = $1;
diff --git
a/fs_selfservice/FS-SelfService/cgi/signup.cgi
b/fs_selfservice/FS-SelfService/cgi/signup.cgi
index
1725561
..
23d814e
100755
(executable)
--- a/
fs_selfservice/FS-SelfService/cgi/signup.cgi
+++ b/
fs_selfservice/FS-SelfService/cgi/signup.cgi
@@
-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,16})$/
+ $payinfo =~ /^(\d{13,16}
|\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)
diff --git
a/httemplate/misc/process/payment.cgi
b/httemplate/misc/process/payment.cgi
index
c1c9071
..
9c85127
100644
(file)
--- a/
httemplate/misc/process/payment.cgi
+++ b/
httemplate/misc/process/payment.cgi
@@
-91,7
+91,7
@@
if ( $payby eq 'CHEK' ) {
$payinfo = $cust_main->payinfo;
}
$payinfo =~ s/\D//g;
$payinfo = $cust_main->payinfo;
}
$payinfo =~ s/\D//g;
- $payinfo =~ /^(\d{13,16})$/
+ $payinfo =~ /^(\d{13,16}
|\d{8,9}
)$/
or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo;
$payinfo = $1;
validate($payinfo)
or errorpage(gettext('invalid_card')); # . ": ". $self->payinfo;
$payinfo = $1;
validate($payinfo)
diff --git
a/httemplate/search/cust_main.cgi
b/httemplate/search/cust_main.cgi
index
6ebc55b
..
5c1fb41
100755
(executable)
--- a/
httemplate/search/cust_main.cgi
+++ b/
httemplate/search/cust_main.cgi
@@
-555,7
+555,7
@@
sub cardsearch {
my($card)=$cgi->param('card');
$card =~ s/\D//g;
my($card)=$cgi->param('card');
$card =~ s/\D//g;
- $card =~ /^(\d{13,16})$/ or errorpage(emt("Illegal card number"));
+ $card =~ /^(\d{13,16}
|\d{8,9}
)$/ or errorpage(emt("Illegal card number"));
my($payinfo)=$1;
[ qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'}),
my($payinfo)=$1;
[ qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'}),