<& /Elements/TitleBoxStart, title => "Find new/open tickets", titleright => "Advanced Search" &>
| Queue |
New |
Open |
Stalled |
<%PERL>
while (my $queue = $Queues->Next) {
$Tickets->ClearRestrictions;
$Tickets->LimitStatus(VALUE => "open");
$Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
my $open = $Tickets->Count();
$Tickets->ClearRestrictions;
$Tickets->LimitStatus(VALUE => "new");
$Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
my $new = $Tickets->Count();
$Tickets->ClearRestrictions;
$Tickets->LimitStatus(VALUE => "stalled");
$Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
my $stalled = $Tickets->Count();
| <%$queue->Name%> |
<%$new%> |
<%$open%> |
<%$stalled%> |
% }
<& /Elements/TitleBoxEnd &>
<%INIT>
my $Queues = new RT::Queues($session{'CurrentUser'});
$Queues->UnLimit();
my $Tickets = new RT::Tickets ($session{'CurrentUser'});