<& /Elements/Header, title => 'Statistics' &>

Number of Tickets Handled in <% $QueueObj->Name %> Per Day

% for my $status (qw(resolved created killed)) { % for my $d (0..$#days) { % for my $status (qw(resolved created killed)) { % } % }
Dates <% $status %> % }
<% $days[$d] %> <% $counts[$d]{$status} %>
See Queue:
<& /Elements/SelectQueue, Name=>"queue", ShowNullOption=>0 &>

% my $url = $RT::WebURL.'/chart?type=bars&x_labels=['; % $url .= join ",", @days; % $url .= ']&'; % my @things = qw(resolved created killed); % for my $th (0..$#things) { % $url .= "data".(1+$th)."=[".(join ",", map { $counts[$_]{$things[$th]} } (0..6))."]&"; % } % chop $url;
Resolved Created Killed
<%ARGS> $max => 5 $queue => "unix-support" $weekends => 0 <%INIT> my @days = qw(Sun Mon Tue Wed Thu Fri Sat); my $n = 0; my @data = ([]); my @msgs; my @counts; $max--; my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($queue); my $tix = new RT::Tickets($session{'CurrentUser'}); $tix->LimitQueue (VALUE => $queue); $tix->UnLimit; if ($tix->Count) { while (my $t = $tix->RT::EasySearch::Next) { # BLOODY HACK $counts[(localtime($t->ResolvedObj->Unix))[6]]{resolved}++ if $t->Status eq "resolved"; $counts[(localtime($t->LastUpdatedObj->Unix))[6]]{killed}++ if $t->Status eq "dead"; $counts[(localtime($t->CreatedObj->Unix))[6]]{created}++ } }