rt/webrt/Elements/ViewUser

   1
   2 <& /Elements/TitleBoxStart,
   3         title => "<a class='inverse' href=\"$RT::WebPath/Search/Listing.html?LimitRequestorById=1&IdOfRequestor=".$User->id."\">Tickets from $name</a>",
   4         titleright=> "<a class='inverse' href=\"$RT::WebPath/EditUserComments.html?id=".$User->id."\">Comments about $name</a>" &>
   5 <TABLE WIDTH="100%">
   6 <tr>
   7 <td halign=left valign=top>
   8 %while (my $w=$tickets->Next) {
   9 <%$w->Id%>: <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$w->id%>"><%$w->Subject%></a> (<%$w->Status%>)<BR>
  10 %}
  11 </td>
  12 <td align=right valign=top>
  13         <% ($User->Comments || "No comment entered about this user") %>
  14 </tr>
  15 </table>
  16 <& /Elements/TitleBoxEnd &>
  17
  18 <%ARGS>
  19 $User=>undef
  20 </%ARGS>
  21
  22 <%INIT>
  23 my $name=$User->RealName || $User->EmailAddress;
  24
  25 my $tickets = new RT::Tickets($session{'CurrentUser'});
  26 $tickets->LimitRequestor(VALUE => $User->EmailAddress);
  27
  28
  29 </%INIT>