diff options
| author | Mark Wells <mark@freeside.biz> | 2014-01-27 16:06:31 -0800 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2014-01-27 16:06:31 -0800 |
| commit | 22df3382a4cd84771550dad390321b150509138f (patch) | |
| tree | 5235992e6596b245e6903b930046b3c372d61540 | |
| parent | af68f26e1a7c15fa506e38393aac95c4e572928e (diff) | |
also mask EDI acct# on invoices, #26859
| -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 8e139f7a0..b030bd734 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -163,6 +163,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; } @@ -273,6 +280,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 { |