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

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 05d87c3be..de3c8847c 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]';
@@ -581,6 +582,11 @@ sub is_system_user {
 ) );
 }
 
+sub sched_item {
+  my $self = shift;
+  qsearch( 'sched_item', { 'usernum' => $self->usernum } );
+}
+
 =back
 
 =head1 BUGS