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:41:29 -0500 |
| commit | 328e2e3bc40c6aef5a8bc5984f837cac2d8e95af (patch) | |
| tree | c9b03851f3265f619d9390e1cd4d161ee98e6dc8 | |
| parent | d5523a70b46146a35943b79379526b64aa5cf146 (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 11bc184d9..bc709e6de 100644 --- a/FS/FS/payby.pm +++ b/FS/FS/payby.pm @@ -261,6 +261,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> |