& Header, TabText => 'Top Projects' &>
Total Projects: <% $TotalProjects %>
Total Members: <% $TotalMembers %>
Total Tickets: <% $TotalTickets %>
<% loc('Top Projects') %>
% for (sort {$QueueTickets->{$b} <=> $QueueTickets->{$a}} keys %$QueueTickets) {
% $QueueObj->Load($_);
<% $QueueObj->Name %>
Tickets: <% $QueueTickets->{$_} %>
Members: <% $ProjectMembers->{$_} %>
% }
<& 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 = $TicketAcc->result('tickets')->{'tickets'};
my $QueueObj = RT::Queue->new($session{'CurrentUser'});
%INIT>