diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2015-04-03 19:36:13 -0500 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-04-03 19:36:13 -0500 |
commit | b726a30ae6b7c13224495c493d8918214270cf5c (patch) | |
tree | 0d02fc13509ac5f3377183d66f62ea3e98932a34 | |
parent | 506bee9c2fefa9a3cd4415a069b1fb16d9f4e3ab (diff) |
RT#34201: Payment import option
-rw-r--r-- | FS/FS/payby.pm | 11 | ||||
-rw-r--r-- | httemplate/misc/cust_pay-import.cgi | 2 |
2 files changed, 12 insertions, 1 deletions
diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm index 5b4559d99..a3c98079d 100644 --- a/FS/FS/payby.pm +++ b/FS/FS/payby.pm @@ -246,6 +246,17 @@ sub payment_payby2longname { map { $_ => $hash{$_}->{longname} } $self->payment_payby; } +=item payment_payby2payname + +Returns hash, keys are L</payment_payby> types, values are payby payname. + +=cut + +sub payment_payby2payname { + my $self = shift; + map { $_ => $self->payname($_) } $self->payment_payby; +} + =back =head1 BUGS diff --git a/httemplate/misc/cust_pay-import.cgi b/httemplate/misc/cust_pay-import.cgi index bc4ac83b2..897de992c 100644 --- a/httemplate/misc/cust_pay-import.cgi +++ b/httemplate/misc/cust_pay-import.cgi @@ -87,5 +87,5 @@ Field information: <%init> my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time); my %paybys; -tie %paybys, 'Tie::IxHash', FS::payby->payment_payby2longname(); +tie %paybys, 'Tie::IxHash', FS::payby->payment_payby2payname(); </%init> |