<& 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'});