diff options
author | ivan <ivan> | 2006-12-14 06:00:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-12-14 06:00:46 +0000 |
commit | dcdf657e77ec7b46dc69e19a849a9c133123db7c (patch) | |
tree | cfbe516c1113dbe86af59ab9288eccc8c71f96ab /FS/FS/cust_pay_void.pm | |
parent | bd368448838fb00212fa34d70e467cf4c8e12206 (diff) |
encryption fixes from huntsberg & jayce
Diffstat (limited to 'FS/FS/cust_pay_void.pm')
-rw-r--r-- | FS/FS/cust_pay_void.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index 946d69f..9a0e582 100644 --- a/FS/FS/cust_pay_void.pm +++ b/FS/FS/cust_pay_void.pm @@ -1,6 +1,6 @@ package FS::cust_pay_void; use strict; -use vars qw( @ISA ); +use vars qw( @ISA @encrypted_fields ); use Business::CreditCard; use FS::UID qw(getotaker); use FS::Record qw(qsearchs dbh fields); # qsearch ); @@ -10,7 +10,9 @@ use FS::cust_pay; #use FS::cust_pay_refund; #use FS::cust_main; -@ISA = qw( FS::Record ); +@ISA = qw( FS::Record FS::payinfo_Mixin ); + +@encrypted_fields = ('payinfo'); =head1 NAME @@ -209,6 +211,8 @@ sub cust_main { =item payinfo_masked +< DEPRICATED > Use $self->paymask + Returns a "masked" payinfo field with all but the last four characters replaced by 'x'es. Useful for displaying credit cards. @@ -216,8 +220,7 @@ by 'x'es. Useful for displaying credit cards. sub payinfo_masked { my $self = shift; - my $payinfo = $self->payinfo; - 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4)); + return $self->paymask; } =back |