[Rt-commit] r18438 - in rt/3.8/trunk: share/html/Admin/Tools

[sartak at bestpractical.com]

Author: sartak
Date: Tue Feb 17 20:59:51 2009
New Revision: 18438

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/share/html/Admin/Tools/Configuration.html

Log:
 r80232 at onn:  sartak | 2009-02-17 20:59:42 -0500
 Distinguish between privileged and unprivileged users


Modified: rt/3.8/trunk/share/html/Admin/Tools/Configuration.html
==============================================================================
--- rt/3.8/trunk/share/html/Admin/Tools/Configuration.html	(original)
+++ rt/3.8/trunk/share/html/Admin/Tools/Configuration.html	Tue Feb 17 20:59:51 2009
@@ -131,7 +131,7 @@
 <h2><&|/l&>RT Size</&></h2>
 <table>
 <%PERL>
-for my $type (qw/Ticket Queue Transaction User Group/) {
+for my $type (qw/Ticket Queue Transaction Group/) {
     my $class = 'RT::' . $type . 's';
     my $collection = $class->new($RT::SystemUser);
     $collection->UnLimit;
@@ -140,6 +140,20 @@
 <tr><th><% $type %>s</th>
 <td><% $count %></td></tr>
 % }
+
+<%PERL>
+my $users = RT::Users->new($RT::SystemUser);
+$users->UnLimit;
+my $user_count = $users->CountAll;
+
+$users->LimitToPrivileged;
+my $privileged_count = $users->CountAll;
+my $unprivileged_count = $user_count - $privileged_count;
+</%PERL>
+<tr><th>Privileged Users</th>
+<td><% $privileged_count %></td></tr>
+<tr><th>Unprivileged Users</th>
+<td><% $unprivileged_count %></td></tr>
 </table>
 
 <h2><&|/l&>Perl configuration</&></h2>