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 5b4559d..a3c9807 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 bc4ac83..897de99 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> |