diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/AccessRight.pm | 2 | ||||
| -rw-r--r-- | FS/FS/payby.pm | 9 |
2 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm index fdb6dc61c..81b653404 100644 --- a/FS/FS/AccessRight.pm +++ b/FS/FS/AccessRight.pm @@ -160,6 +160,8 @@ assigned to users and/or groups. 'Apply credit', #NEWNEW 'Unapply credit', #aka unapplycredits Enable "unapplication" of unclosed credits. 'Delete credit', #aka. deletecredits Enable deletion of unclosed credits. Be very careful! Only delete credits that were data-entry errors, not adjustments. Optionally specify one or more comma-separated email addresses to be notified when a credit is deleted. + 'Post refund', +# 'Process refund', 'Add on-the-fly credit reason', #NEW ### diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm index cb5367e5a..1b518ea60 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' => { @@ -150,6 +151,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}; |