diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-01-29 18:26:47 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-01-29 18:26:47 -0800 |
commit | ca5cca28fc6ca1b625140d7ba2a7fe48b1107e09 (patch) | |
tree | d05482fee9abb1b4eec1a52d683224911de2c14a /FS/FS/cust_payby.pm | |
parent | 44b8701e1747da62acbb104d0da7b1134d223981 (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 |