<&|Elements/Wrapper, %ARGS, title => loc("Resolution Comments"), path => "Reports/Activity/ResolutionComments.html", &> % for my $item (@items) { % }

Queue	Ticket #	Created	Resolved	Time to resolve
Resolution comments
<% $item->{queue} %>	<% $item->{id} %>	<% $item->{created} %>	<% $item->{resolved} %>	<% $item->{duration} %>
<% $item->{whiteboard} %>

<%args> $query => 'id > 0' $start => "2005/01/01" $end => "2006/01/01" <%init> use Time::Duration; my $summary_tickets = RT::Tickets->new( $session{'CurrentUser'} ); $summary_tickets->FromSQL( $query . " AND (Status = 'resolved') AND ( Updated >= '$start' AND Updated <= '$end')" ); my @items; while ( my $ticket = $summary_tickets->Next ) { push @items, { queue => $ticket->QueueObj->Name, id => $ticket->id, created => $ticket->CreatedObj->AsString, resolved => $ticket->ResolvedObj->AsString, duration => Time::Duration::concise( Time::Duration::duration( $ticket->ResolvedObj->Unix - $ticket->CreatedObj->Unix ) ), whiteboard => $ticket->FirstCustomFieldValue('Whiteboard') }; } @items = sort { $a->{queue} cmp $b->{queue} || $a->{id} <=> $b->{id} } @items;