diff options
author | ivan <ivan> | 2008-05-19 04:07:02 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-05-19 04:07:02 +0000 |
commit | 978fea1c303551f90c95ae852b6463951b78246b (patch) | |
tree | c676ac9166a1470959eb0b6bb3f9b16b5275a0b1 /FS/FS/payinfo_Mixin.pm | |
parent | 36de6f6f3b7ec8cafc8f5247af750b331ee13a1b (diff) |
make net receipts clickable... and netreceipts != cashflow, really, so separate those concepts, and cashflow gets gross & net variants. also add gross/net refunds. #3012
Diffstat (limited to 'FS/FS/payinfo_Mixin.pm')
-rw-r--r-- | FS/FS/payinfo_Mixin.pm | 48 |
1 files changed, 39 insertions, 9 deletions
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index bdfe6c9..fb56371 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -22,9 +22,7 @@ This class handles the following functions for payinfo... Payment Mask (Generation and Storage) Data Validation (parent checks need to be sure to call this) -Encryption - In the Future (Pull from Record.pm) -Bad Card Stuff - In the Future (Integrate Banned Pay) -Currency - In the Future +Pretty printing =head1 FIELDS @@ -182,11 +180,6 @@ sub mask_payinfo { return $paymask; } -=cut - -sub _mask_payinfo { - my $self = shift; - =item payinfo_check Checks payby and payinfo. @@ -244,9 +237,46 @@ sub payinfo_check { } +=item payby_payinfo_pretty + +Returns payment method and information (suitably masked, if applicable) as +a human-readable string, such as: + + Card #54xxxxxxxxxxxx32 + +or + + Check #119006 + +=cut + +sub payby_payinfo_pretty { + my $self = shift; + if ( $self->payby eq 'CARD' ) { + 'Card #'. $self->paymask; + } elsif ( $self->payby eq 'CHEK' ) { + 'E-check acct#'. $self->payinfo; + } elsif ( $self->payby eq 'BILL' ) { + 'Check #'. $self->payinfo; + } elsif ( $self->payby eq 'PREP' ) { + 'Prepaid card #'. $self->payinfo; + } elsif ( $self->payby eq 'CASH' ) { + 'Cash '. $self->payinfo; + } elsif ( $self->payby eq 'WEST' ) { + 'Western Union'; #. $self->payinfo; + } elsif ( $self->payby eq 'MCRD' ) { + 'Manual credit card'; #. $self->payinfo; + } else { + $self->payby. ' '. $self->payinfo; + } +} + =head1 BUGS -Have to add the future items... +Future items? + Encryption - In the Future (Pull from Record.pm) + Bad Card Stuff - In the Future (Integrate Banned Pay) + Currency - In the Future =head1 SEE ALSO |