rt/webrt/Ticket/Elements/ShowRequestor

   1 <%PERL>
   2 my $people = $Ticket->Requestors;
   3 while (my $requestor=$people->Next) {
   4 if (($requestor->Owner ) && (my $user=$requestor->OwnerObj)) {
   5 my $name=$user->RealName || $user->EmailAddress;
   6 my $tickets = new RT::Tickets($session{'CurrentUser'});
   7 $tickets->LimitRequestor(VALUE => $user->EmailAddress);
   8 $tickets->LimitStatus( VALUE => 'open');
   9 $tickets->LimitStatus( VALUE => 'new');
  10 $tickets->RowsPerPage(25);
  11 $tickets->OrderBy(FIELD => 'Priority',
  12                   ORDER => 'DESC');
  13 </%PERL>
  14
  15 % unless ($user->Privileged) {
  16 <& /Elements/TitleBoxStart,
  17         title => "<a class='inverse' href=\"$RT::WebPath/Admin/Users/Modify.html?id=".$user->id."\">More about $name</a>" &>
  18
  19 Comments about this user:<BR>
  20 <B><% ($user->Comments || "No comment entered about this user") %></B><BR>
  21
  22 This user's 25 highest priority tickets:<BR>
  23 <UL>
  24 %while (my $w=$tickets->Next) {
  25 <LI><%$w->Id%>: <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$w->id%>"><%$w->Subject%></a> (<%$w->Status%>)
  26 %}
  27 </UL>
  28 <& /Elements/TitleBoxEnd &>
  29
  30 % }
  31 % }
  32 %}
  33 <%ARGS>
  34 $Ticket=>undef
  35 </%ARGS>