rt/webrt/Elements/MyRequests

   1 <& /Elements/TitleBoxStart, title => "25 highest priority tickets I requested..." &>
   2 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%>
   3 <TR>
   4 <TH align=right>#</TH>
   5 <TH align=left>Subject</TH>
   6 <TH align=left>Queue</TH>
   7 <TH align=left>Status</TH>
   8 <TH align=left>Owner</TH>
   9 <TH>&nbsp;</TH>
  10 </TR>
  11 % while (my $Ticket = $MyTickets->Next) {
  12 <TR>
  13 <TD ALIGN=RIGHT>
  14 <%$Ticket->Id%>
  15 </TD>
  16 <TD>
  17 <A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>">
  18 <%$Ticket->Subject || '[no subject]'%>
  19 </A>
  20 </TD>
  21 <TD>
  22 <%$Ticket->QueueObj->Name%>
  23 </TD><TD>
  24 <%$Ticket->Status%>
  25 </TD><TD>
  26 <%$Ticket->OwnerObj->Name%>
  27 </TD><TD ALIGN=RIGHT>
  28 [<A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>">Display</A>]
  29 </TD>
  30 </TR>
  31 % }
  32 </TABLE>
  33 <& /Elements/TitleBoxEnd &>
  34
  35
  36 <%INIT>
  37 my $MyTickets;
  38 $MyTickets = new RT::Tickets ($session{'CurrentUser'});
  39 $MyTickets->LimitRequestor(VALUE => $session{'CurrentUser'}->EmailAddress);
  40 $MyTickets->LimitStatus(VALUE => "open");
  41 $MyTickets->LimitStatus(VALUE => "new");
  42 $MyTickets->OrderBy(FIELD => 'Priority', ORDER => 'DESC');
  43 $MyTickets->RowsPerPage(25);
  44
  45 </%INIT>