rt/html/Elements/ViewUser

   1 %# BEGIN LICENSE BLOCK
   2 %#
   3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 %#
   5 %# (Except where explictly superceded by other copyright notices)
   6 %#
   7 %# This work is made available to you under the terms of Version 2 of
   8 %# the GNU General Public License. A copy of that license should have
   9 %# been provided with this software, but in any event can be snarfed
  10 %# from www.gnu.org.
  11 %#
  12 %# This work is distributed in the hope that it will be useful, but
  13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 %# General Public License for more details.
  16 %#
  17 %# Unless otherwise specified, all modifications, corrections or
  18 %# extensions to this work which alter its source code become the
  19 %# property of Best Practical Solutions, LLC when submitted for
  20 %# inclusion in the work.
  21 %#
  22 %#
  23 %# END LICENSE BLOCK
  24 <& /Elements/TitleBoxStart,
  25         title => "<a class='inverse' href=\"$RT::WebPath/Search/Listing.html?LimitRequestorById=1&IdOfRequestor=".$User->id."\">".loc("Tickets from [_1]", $name)."</a>",
  26         titleright=> "<a class='inverse' href=\"$RT::WebPath/EditUserComments.html?id=".$User->id."\">".loc("Comments about [_1]", $name)."</a>" &>
  27 <TABLE WIDTH="100%">
  28 <tr>
  29 <td halign=left valign=top>
  30 %while (my $w=$tickets->Next) {
  31 <%$w->Id%>: <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$w->id%>"><%$w->Subject%></a> (<%$w->Status%>)<BR>
  32 %}
  33 </td>
  34 <td align=right valign=top>
  35         <% ($User->Comments || loc("No comment entered about this user")) %>
  36 </tr>
  37 </table>
  38 <& /Elements/TitleBoxEnd &>
  39
  40 <%ARGS>
  41 $User=>undef
  42 </%ARGS>
  43
  44 <%INIT>
  45 my $name=$User->RealName || $User->EmailAddress;
  46
  47 my $tickets = new RT::Tickets($session{'CurrentUser'});
  48 $tickets->LimitWatcher(TYPE => 'Requestor', VALUE => $User->EmailAddress);
  49
  50
  51 </%INIT>