projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b6e0310
)
fix for using new payment duplicate stuff with cc encryption
author
ivan
<ivan>
Mon, 5 May 2008 01:18:47 +0000
(
01:18
+0000)
committer
ivan
<ivan>
Mon, 5 May 2008 01:18:47 +0000
(
01:18
+0000)
FS/FS/payinfo_Mixin.pm
patch
|
blob
|
history
diff --git
a/FS/FS/payinfo_Mixin.pm
b/FS/FS/payinfo_Mixin.pm
index
15c4e39
..
40b97a9
100644
(file)
--- a/
FS/FS/payinfo_Mixin.pm
+++ b/
FS/FS/payinfo_Mixin.pm
@@
-216,7
+216,7
@@
sub payinfo_check {
FS::payby->can_payby($self->table, $self->payby)
or return "Illegal payby: ". $self->payby;
FS::payby->can_payby($self->table, $self->payby)
or return "Illegal payby: ". $self->payby;
- if ( $self->payby eq 'CARD' ) {
+ if ( $self->payby eq 'CARD'
&& ! $self->is_encrypted($self->payinfo)
) {
my $payinfo = $self->payinfo;
$payinfo =~ s/\D//g;
$self->payinfo($payinfo);
my $payinfo = $self->payinfo;
$payinfo =~ s/\D//g;
$self->payinfo($payinfo);
@@
-227,7
+227,7
@@
sub payinfo_check {
validate($self->payinfo) or return "Illegal credit card number";
return "Unknown card type" if cardtype($self->payinfo) eq "Unknown";
} else {
validate($self->payinfo) or return "Illegal credit card number";
return "Unknown card type" if cardtype($self->payinfo) eq "Unknown";
} else {
- $self->payinfo('N/A');
+ $self->payinfo('N/A');
#???
}
} else {
my $error = $self->ut_textn('payinfo');
}
} else {
my $error = $self->ut_textn('payinfo');