X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Faccess_user.pm;h=0eaab833ab93d3a7795b68a7ef06dbb8a2876841;hb=44f17d3e7639e05931089d01d5b6eccaffe41fbf;hp=41fcd1e9fe705fd98748170c9bafbaff8ad8a20e;hpb=e9d8e2a5f22ac1144bb3516c122f7406789d7d5d;p=freeside.git

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 41fcd1e9f..0eaab833a 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -404,7 +404,7 @@ sub access_right {
     unless ( grep !exists($self->{_ACLcache}{$_}), @$rightname ) {
       warn "$me ACL cache hit for ". join(', ', @$rightname). "\n"
         if $DEBUG;
-      return grep $self->{_ACLcache}{$_}, @$rightname
+      return scalar( grep $self->{_ACLcache}{$_}, @$rightname );
     }
 
     warn "$me ACL cache miss for ". join(', ', @$rightname). "\n"
@@ -513,6 +513,7 @@ sub is_system_user {
     fs_signup
     fs_bootstrap
     fs_selfserv
+    fs_api
   ) );
 }