projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix package changes in pre-setup state, RT#73377, RT#38404
[freeside.git]
/
FS
/
FS
/
cust_payby.pm
diff --git
a/FS/FS/cust_payby.pm
b/FS/FS/cust_payby.pm
index
626fc9f
..
53608cf
100644
(file)
--- a/
FS/FS/cust_payby.pm
+++ b/
FS/FS/cust_payby.pm
@@
-276,7
+276,7
@@
sub replace {
if ( $self->payby =~ /^(CARD|CHEK)$/
&& ( ( $self->get('payinfo') ne $old->get('payinfo')
if ( $self->payby =~ /^(CARD|CHEK)$/
&& ( ( $self->get('payinfo') ne $old->get('payinfo')
- &&
$self->get('payinfo') !~ /^99\d{14}$/
+ &&
!$self->tokenized
)
|| grep { $self->get($_) ne $old->get($_) } qw(paydate payname)
)
)
|| grep { $self->get($_) ne $old->get($_) } qw(paydate payname)
)
@@
-357,7
+357,7
@@
sub check {
or return gettext('invalid_card'); # . ": ". $self->payinfo;
my $cardtype = cardtype($payinfo);
or return gettext('invalid_card'); # . ": ". $self->payinfo;
my $cardtype = cardtype($payinfo);
- $cardtype = 'Tokenized' if $self->
payinfo =~ /^99\d{14}$/
; #token
+ $cardtype = 'Tokenized' if $self->
tokenized
; #token
return gettext('unknown_card_type') if $cardtype eq "Unknown";
return gettext('unknown_card_type') if $cardtype eq "Unknown";
@@
-546,7
+546,7
@@
sub check_payinfo_cardtype {
my $payinfo = $self->payinfo;
$payinfo =~ s/\D//g;
my $payinfo = $self->payinfo;
$payinfo =~ s/\D//g;
- if ( $
payinfo =~ /^99\d{14}$/
) {
+ if ( $
self->tokenized($payinfo)
) {
$self->set('paycardtype', 'Tokenized');
return '';
}
$self->set('paycardtype', 'Tokenized');
return '';
}