rt/webrt/Elements/Quicksearch

   1 <& /Elements/TitleBoxStart, title => "Find new/open tickets", titleright => "<A class='inverse' href=\"$RT::WebPath/Search/Listing.html?NewSearch=1\">Advanced Search</A>" &>
   2
   3 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%>
   4 <tr>
   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>
   9 </tr>
  10
  11 <%PERL>
  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();
  17
  18      $Tickets->ClearRestrictions;
  19      $Tickets->LimitStatus(VALUE => "new");
  20      $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
  21      my $new = $Tickets->Count();
  22
  23      $Tickets->ClearRestrictions;
  24      $Tickets->LimitStatus(VALUE => "stalled");
  25      $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
  26      my $stalled = $Tickets->Count();
  27 </%PERL>
  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>
  29 <TD><%$new%></TD>
  30 <TD><%$open%></TD>
  31 <TD><%$stalled%></TD>
  32 </TR>
  33 % }
  34 </TABLE>
  35 <& /Elements/TitleBoxEnd &>
  36
  37 <%INIT>
  38 my $Queues = new RT::Queues($session{'CurrentUser'});
  39 $Queues->UnLimit();
  40 my $Tickets = new RT::Tickets ($session{'CurrentUser'});
  41 </%INIT>