diff options
author | ivan <ivan> | 2008-09-03 01:46:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-09-03 01:46:43 +0000 |
commit | 46a7257273fdae101658c8a1ee74f654ca0876b5 (patch) | |
tree | 16e5d2021a2cbc0d0fa2988bd767890013eed41e /FS/FS/payby.pm | |
parent | 2e3742946113c9a4e52a4741c020ff5b129050e8 (diff) |
add back ability to post a check/cash refund. be more explicit about it instead of just being a checkbox when posting a credit. RT#3812
Diffstat (limited to 'FS/FS/payby.pm')
-rw-r--r-- | FS/FS/payby.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm index 349d266..b54e5d9 100644 --- a/FS/FS/payby.pm +++ b/FS/FS/payby.pm @@ -74,6 +74,7 @@ tie %hash, 'Tie::IxHash', 'BILL' => { tinyname => 'billing', shortname => 'Billing', + payname => 'Check', longname => 'Billing', }, 'PREP' => { @@ -140,6 +141,14 @@ sub shortname { $hash{$payby}->{shortname}; } +sub payname { + my( $self, $payby ) = @_; + #$hash{$payby}->{payname} || $hash{$payby}->{shortname}; + exists($hash{$payby}->{payname}) + ? $hash{$payby}->{payname} + : $hash{$payby}->{shortname}; +} + sub longname { my( $self, $payby ) = @_; $hash{$payby}->{longname}; |