include agent and restore cust-level status in small_custview

diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm
index 1210da4..b48714c 100644 (file)
--- a/FS/FS/UI/Web/small_custview.pm
+++ b/FS/FS/UI/Web/small_custview.pm
@@ -95,8 +95,12 @@ sub small_custview {
   $html = qq!<A HREF="$url?! . $cust_main->custnum . '">'
     if $url;
 
   $html = qq!<A HREF="$url?! . $cust_main->custnum . '">'
     if $url;
 

+  if ( $FS::CurrentUser::CurrentUser->num_agents ) {
+    $html .= encode_entities($cust_main->agent->agent). ' ';
+  }
+

   $html .= 'Customer #<B>'. $cust_main->display_custnum.
   $html .= 'Customer #<B>'. $cust_main->display_custnum.

-           ': '. encode_entities($cust_main->name). '</B></A>';
+           '</B>: <B>'. encode_entities($cust_main->name). '</B></A>'.

            ' - <B><FONT COLOR="#'. $cust_main->statuscolor. '">'.
            ucfirst($cust_main->status). '</FONT></B>';
 
            ' - <B><FONT COLOR="#'. $cust_main->statuscolor. '">'.
            ucfirst($cust_main->status). '</FONT></B>';
 

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 4b5a701..605eaee 100644 (file)
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -329,6 +329,22 @@ sub 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).
 =item agentnums 
 
 Returns a list of agentnums this user can view (via group membership).