& Header, TabText => 'Top Projects' &>
<&|/l&>Total Projects&>: <% $TotalProjects || 0 %>
<&|/l&>Total Members&>:  <% $TotalMembers  || 0 %>
<&|/l&>Total Tickets&>:  <% $TotalTickets  || 0 %>
% if ($QueueTickets) {
<% loc('Top Projects') %>
% }
% for (sort {$QueueTickets->{$b} <=> $QueueTickets->{$a}} keys %$QueueTickets) {
%   $QueueObj->Load($_);
<% $QueueObj->Name %>
<&|/l&>Tickets&>: <% $QueueTickets->{$_} || 0 %>
<&|/l&>Members&>: <% $ProjectMembers->{$_} || 0 %>
% }
<& Footer &>
<%INIT>
;;; #_#
my ($ProjectAcc, $TotalProjects,$TotalMembers) = $m->comp('ProjectAcc');
my $ProjectMembers = $ProjectAcc->result('queue');
my $TicketAcc      = $m->comp('TicketAcc');
my $QueueTickets   = $TicketAcc->result('Queue');
my $TotalTickets   = eval { $TicketAcc->result('tickets')->{'tickets'} };
my $QueueObj       = RT::Queue->new($session{'CurrentUser'});
%INIT>