diff options
author | Mark Wells <mark@freeside.biz> | 2014-01-27 16:52:32 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2014-01-27 16:52:32 -0800 |
commit | fbccadc20ceb30d90ef5ab8a2e135834a1aded31 (patch) | |
tree | 7cab3f8b1d2d14a350f6687d6810dec0f7417d48 /FS/FS/payinfo_Mixin.pm | |
parent | cc7638ffbd4dea4dfd4acc7c020541af710c7cf1 (diff) |
also mask EDI acct# on invoices, #26859
Diffstat (limited to 'FS/FS/payinfo_Mixin.pm')
-rw-r--r-- | FS/FS/payinfo_Mixin.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 1104e3f..e14c589 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -159,6 +159,13 @@ sub mask_payinfo { substr($account,(length($account)-2)). ( length($aba) ? "@".$aba : ''); + } elsif ($payby eq 'EDI') { + # EDI. + # These numbers have been seen anywhere from 8 to 30 digits, and + # possibly more. Lacking any better idea I'm going to mask all but + # the last 4 digits. + return 'x' x (length($payinfo) - 4) . substr($payinfo, -4); + } else { # Tie up loose ends return $payinfo; } @@ -269,6 +276,8 @@ sub payby_payinfo_pretty { $lh->maketext('Western Union'); } elsif ( $self->payby eq 'MCRD' ) { $lh->maketext('Manual credit card'); + } elsif ( $self->payby eq 'EDI' ) { + $lh->maketext('EDI') . ' ' . $self->paymask; } elsif ( $self->payby eq 'PPAL' ) { $lh->maketext('PayPal transaction#') . $self->order_number; } else { |