<%PERL>
my $people = $Ticket->Requestors;
while (my $requestor=$people->Next) {
if (($requestor->Owner ) && (my $user=$requestor->OwnerObj)) {
my $name=$user->RealName || $user->EmailAddress;
my $tickets = new RT::Tickets($session{'CurrentUser'});
$tickets->LimitRequestor(VALUE => $user->EmailAddress);
$tickets->LimitStatus( VALUE => 'open');
$tickets->LimitStatus( VALUE => 'new');
$tickets->RowsPerPage(25);
$tickets->OrderBy(FIELD => 'Priority',
ORDER => 'DESC');
% unless ($user->Privileged) {
<& /Elements/TitleBoxStart,
title => "id."\">More about $name" &>
Comments about this user:
<% ($user->Comments || "No comment entered about this user") %>
This user's 25 highest priority tickets:
%while (my $w=$tickets->Next) {
- <%$w->Id%>: <%$w->Subject%> (<%$w->Status%>)
%}
<& /Elements/TitleBoxEnd &>
% }
% }
%}
<%ARGS>
$Ticket=>undef