use FS::agent;
use FS::cust_main;
use FS::sales;
+use FS::sched_item;
$DEBUG = 0;
$me = '[FS::access_user]';
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"
fs_signup
fs_bootstrap
fs_selfserv
+ fs_api
) );
}
+sub sched_item {
+ my $self = shift;
+ qsearch( 'sched_item', { 'usernum' => $self->usernum } );
+}
+
=back
=head1 BUGS