<& /Elements/Header, Title => loc("RT Statistics: Calls per day in Queue:" . $QueueObj->Name()) &> <& /Statistics/Elements/Tabs, Title => loc("RT Statistics: Calls per day in Queue:" . $QueueObj->Name()) &>

<&|/l, $QueueObj->Name&>Number of Tickets Handled in [_1] Per Day

% for my $status (qw(resolved created deleted)) { % for my $d (0..$#dates) { % my $x = 1; % for my $status (qw(resolved created deleted)) { % my $tix = new RT::Tickets($session{'CurrentUser'}); % } %}
<&|/l&>Dates <% loc($status) %> % }
<% Statistics::FormatDate($dateformat, $dates[$d]) %> % if ($status eq "resolved") { % $tix->LimitStatus(VALUE => $status); % $tix->LimitResolved(VALUE => $dates[$d]->ISO, OPERATOR => ">="); % if ($dates[$d+1]) { % $tix->LimitResolved(VALUE => $dates[$d+1]->ISO, OPERATOR => "<="); % } % } % elsif ($status eq "created") { % $tix->LimitCreated(VALUE => $dates[$d]->ISO, OPERATOR => ">="); % if ($dates[$d+1]) { % $tix->LimitCreated(VALUE => $dates[$d+1]->ISO, OPERATOR => "<="); % } % } % elsif ($status eq "deleted") { % $tix->LimitStatus(VALUE => $status); % $tix->LimitLastUpdated(VALUE => $dates[$d]->ISO, OPERATOR => ">="); % if ($dates[$d+1]) { % $tix->LimitLastUpdated(VALUE => $dates[$d+1]->ISO, OPERATOR => "<="); % } % } % $tix->LimitQueue (VALUE => $queue); <% $tix->Count %> % $data[$x++][$d] = $tix->Count;
<&|/l&>See Queue:
<& /Elements/SelectQueue, Name=>"queue", ShowNullOption=>0 &> <&|/l&>Days to see: <&|/l&>See weekends: name="weekends">

<%perl> my $url= 'Elements/Chart?x_labels='; for (0..$max) { $url .= $data[0][$_] . ","; } chop $url; $url .= "&"; shift @data; for (0..$#data) { $url .= "data".(1+$_)."=".(join ",", @{$data[$_]})."&"; } chop $url;
<&|/l&>Resolved <&|/l&>Created <&|/l&>Deleted
<%ARGS> $max => $Statistics::PerDayMaxRows $queue => $Statistics::PerDayQueue $weekends => $Statistics::PerDayWeekends $dateformat => $Statistics::PerDayDateFormat <%INIT> use Statistics; my $n = 0; my @data = ([]); my @dates; my @msgs; $max--; my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($queue); until ($#dates == $max) { my $date = new RT::Date($session{CurrentUser}); $date->Set(Value=>time - $n, Format => 'unix'); Statistics::RTDateSetToLocalMidnight($date); $n+= 60*60*24; next if !$weekends and Statistics::RTDateIsWeekend($date); unshift @dates, $date; unshift @{ $data[0] }, Statistics::FormatDate($Statistics::PerDayLabelDateFormat, $date); }