X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpayby.pm;h=5b4559d997c99332cc9d3098704d30c17f56d66f;hb=1ac4a177bd93ad7a97a45aacb66aa0bc9c23726b;hp=13423c48fc0d7a9c593d7b12375b4590ea0dec35;hpb=92c9e14aa28f017837fb94e4da1d9862e30b02f8;p=freeside.git

diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm
index 13423c48f..5b4559d99 100644
--- a/FS/FS/payby.pm
+++ b/FS/FS/payby.pm
@@ -224,6 +224,28 @@ sub cust_payby2longname {
   map { $_ => $hash{$_}->{longname} } $self->cust_payby;
 }
 
+=item payment_payby
+
+Returns all values of payby that can be used by payments.
+
+=cut
+
+sub payment_payby {
+  my $self = shift;
+  grep { ! exists $hash{$_}->{cust_pay} } $self->payby;
+}
+
+=item payment_payby2longname
+
+Returns hash, keys are L</payment_payby> types, values are payby longname.
+
+=cut
+
+sub payment_payby2longname {
+  my $self = shift;
+  map { $_ => $hash{$_}->{longname} } $self->payment_payby;
+}
+
 =back
 
 =head1 BUGS