<& /Elements/Header, Title => loc('RT Statistics: Open and Stalled Requests') &> <& /Statistics/Elements/Tabs, Title => loc('RT Statistics: Open and Stalled Requests') &>
% for (sort keys %queues) { % # Propagate Queues argument % delete $queues{$_}, next if not $_; % } %my $tix = new RT::Tickets($session{'CurrentUser'}); %if ($queue) { % $tix->LimitQueue (VALUE => $queue); %} % for ( sort keys %queues) { % push @data, $_; % my $Queueobj = new RT::Queue($session{'CurrentUser'}); % $Queueobj->Load($_); % next if !$Queueobj->CurrentUserHasRight('SeeQueue'); % } % my @legend; % foreach my $s (qw(new open stalled)) { % push @legend, $s; % foreach my $q (sort keys %queues) { % $tix = new RT::Tickets($session{'CurrentUser'}); % $tix->LimitQueue(VALUE => "$q"); % $tix->LimitStatus(VALUE => "$s"); % }
Status <% $_ %>
<%$s%> % push @data, $tix->Count; <% $tix->Count %> % }
<&|/l&>Add Queue:

%# for (0..scalar @data) { %# print $data[$_] . "\n"; %# } % my $url = 'Elements/Chart?x_labels='; % for (1..(scalar keys %queues)) { % $url .= (shift @data) . ','; % } % chop $url; % $url .= '&data1=' ; % for (1..(scalar keys %queues)) { % $url .= (shift @data) . ','; % } % chop $url; % $url .= '&data2=' ; % for (1..(scalar keys %queues)) { % $url .= (shift @data) . ','; % } % chop $url; % $url .= '&data3=' ; % for (1..(scalar keys %queues)) { % $url .= (shift @data) . ','; % } % $url .= '&set_legend='.(join ",", @legend);
<%ARGS> @queues => @Statistics::OpenStalledQueueList $weekends => $Statistics::OpenStalledWeekends <%INIT> use Statistics; my $n = 0; my @data; my @msgs; my %queues = map { $_ => 1; } (@queues); for (grep {/delqueue/} keys %ARGS) { /delqueue(.*)/; delete $queues{$1}; @queues = sort keys %queues; } my $queue = new RT::Queues($session{CurrentUser}); $queue->UnLimit; my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($queue);