1 <& /Elements/TitleBoxStart, title => "Find new/open tickets", titleright => "<A class='inverse' href=\"$RT::WebPath/Search/Listing.html?NewSearch=1\">Advanced Search</A>" &>
3 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%>
5 <th align=left>Queue</th>
6 <th align=left><font size=-1>New</font></th>
7 <th align=left><font size=-1>Open</font></th>
8 <th align=left><font size=-1>Stalled</font></th>
12 while (my $queue = $Queues->Next) {
13 $Tickets->ClearRestrictions;
14 $Tickets->LimitStatus(VALUE => "open");
15 $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
16 my $open = $Tickets->Count();
18 $Tickets->ClearRestrictions;
19 $Tickets->LimitStatus(VALUE => "new");
20 $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
21 my $new = $Tickets->Count();
23 $Tickets->ClearRestrictions;
24 $Tickets->LimitStatus(VALUE => "stalled");
25 $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
26 my $stalled = $Tickets->Count();
28 <TR><TD><A HREF="<% $RT::WebPath%>/Search/Listing.html?ValueOfStatus=open&ValueOfStatus=new&StatusOp=%3D&QueueOp=%3D&ValueOfQueue=<%$queue->Id%>&RowsPerPage=50&NewSearch=1"><%$queue->Name%></a></TD>
35 <& /Elements/TitleBoxEnd &>
38 my $Queues = new RT::Queues($session{'CurrentUser'});
40 my $Tickets = new RT::Tickets ($session{'CurrentUser'});