first part of ACL and re-skinning work and some other small stuff

[freeside.git] / FS / FS / payby.pm

diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm
index 3d43dff..9f8b689 100644 (file)
--- a/FS/FS/payby.pm
+++ b/FS/FS/payby.pm
@@ -103,7 +103,7 @@ sub payby2longname {
 
 sub cust_payby {
   my $self = shift;
-  grep { ! exists $hash{$_}->{cust_main} } self->payby;
+  grep { ! exists $hash{$_}->{cust_main} } $self->payby;
 }
 
 sub cust_payby2longname {
@@ -115,7 +115,8 @@ sub cust_payby2longname {
 
 =head1 BUGS
 
-This should eventually be an actual database table.
+This should eventually be an actual database table, and all tables that
+currently have a char payby field should have a foreign key into here instead.
 
 =head1 SEE ALSO