diff options
author | ivan <ivan> | 2008-05-05 01:18:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-05-05 01:18:47 +0000 |
commit | 5756baa126e1a349ee1296aba887fc4f3c68e22b (patch) | |
tree | 3aef0bef24d2d978b62389873b6e9277553b4ca8 /FS/FS/payinfo_Mixin.pm | |
parent | b6e03102277b0a129e4f0feb071d9b7f470db870 (diff) |
fix for using new payment duplicate stuff with cc encryption
Diffstat (limited to 'FS/FS/payinfo_Mixin.pm')
-rw-r--r-- | FS/FS/payinfo_Mixin.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 15c4e39..40b97a9 100644 --- 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; - 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); @@ -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 { - $self->payinfo('N/A'); + $self->payinfo('N/A'); #??? } } else { my $error = $self->ut_textn('payinfo'); |