X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Faccess_user.pm;h=0f07e77c82f3e1433b737183491669603592e461;hb=bd67b77325c4ba61e6de0b7c4aa24a473c60d181;hp=05d87c3be1015987bf20491812cbe52a8076c3f4;hpb=009ee637a38d8bb9e5378a59b47f05493c7078b6;p=freeside.git

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 05d87c3be..0f07e77c8 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -11,6 +11,7 @@ use FS::access_usergroup;
 use FS::agent;
 use FS::cust_main;
 use FS::sales;
+use FS::sched_item;
 
 $DEBUG = 0;
 $me = '[FS::access_user]';
@@ -578,9 +579,15 @@ sub is_system_user {
     fs_signup
     fs_bootstrap
     fs_selfserv
+    fs_api
 ) );
 }
 
+sub sched_item {
+  my $self = shift;
+  qsearch( 'sched_item', { 'usernum' => $self->usernum } );
+}
+
 =back
 
 =head1 BUGS