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
<%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>