diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-01-29 18:26:43 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-01-29 18:26:43 -0800 |
commit | 5d089cbe4980f7c9c25b83e164099b22bc59eead (patch) | |
tree | 9c1668cb5003e706b7f2f61ab8c54c9795576572 /FS/FS/cust_payby.pm | |
parent | 9db332d80967969856c5b5fe8b6ac91304734b04 (diff) |
Use any card on file when making a payment, RT#23741
Diffstat (limited to 'FS/FS/cust_payby.pm')
-rw-r--r-- | FS/FS/cust_payby.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/FS/FS/cust_payby.pm b/FS/FS/cust_payby.pm index 9111fdf..a686242 100644 --- a/FS/FS/cust_payby.pm +++ b/FS/FS/cust_payby.pm @@ -560,6 +560,39 @@ sub paydate_mon_year { } +=item label + +Returns a one line text label for this payment type. + +=cut + +my %weight = ( + 1 => 'Primary', + 2 => 'Secondary', + 3 => 'Tertiary', + 4 => 'Fourth', + 5 => 'Fifth', + 6 => 'Sixth', + 7 => 'Seventh', +); + +sub label { + my $self = shift; + + my $name = $self->payby =~ /^(CARD|DCRD)$/ + && cardtype($self->paymask) || FS::payby->shortname($self->payby); + + ( $self->payby =~ /^(CARD|CHEK)$/ ? $weight{$self->weight}. ' automatic ' + : 'Manual ' + ). + "$name: ". $self->paymask. + ( $self->payby =~ /^(CARD|DCRD)$/ + ? ' Exp '. join('/', $self->paydate_mon_year) + : '' + ); + +} + =item realtime_bop =cut |