& /Elements/Header, title => 'Statistics' &>
Number of Tickets Handled in <% $QueueObj->Name %> Per Day
% 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
%ARGS>
<%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}++
}
}
%INIT>