X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Faccess_user.pm;h=a3f55bc768147e0c5fc294151231e20746b1661d;hp=68d2deaba007f9afb13c923a5c0de1f011b77e8f;hb=5376c66e2e5c1849763777f9d44ad013405c1d9e;hpb=e9827319f740628016763ce99fc424df30369eea

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 68d2deaba..a3f55bc76 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -283,6 +283,22 @@ sub report_sales {
 Returns links to the the groups this user is a part of, as FS::access_usergroup
 objects (see L<FS::access_usergroup>).
 
+=item num_agents
+
+Returns the number of agents this user can view (via group membership).
+
+=cut
+
+sub num_agents {
+  my $self = shift;
+  $self->scalar_sql(
+    'SELECT COUNT(DISTINCT agentnum) FROM access_usergroup
+                                     JOIN access_groupagent USING ( groupnum )
+       WHERE usernum = ?',
+    $self->usernum,
+  );
+}
+
 =item agentnums 
 
 Returns a list of agentnums this user can view (via group membership).