diff options
Diffstat (limited to 'rt/share/html/Elements/QueueSummaryByStatus')
| -rw-r--r-- | rt/share/html/Elements/QueueSummaryByStatus | 139 |
1 files changed, 139 insertions, 0 deletions
diff --git a/rt/share/html/Elements/QueueSummaryByStatus b/rt/share/html/Elements/QueueSummaryByStatus new file mode 100644 index 000000000..09f274f74 --- /dev/null +++ b/rt/share/html/Elements/QueueSummaryByStatus @@ -0,0 +1,139 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC +%# <sales@bestpractical.com> +%# +%# (Except where explicitly superseded by other copyright notices) +%# +%# +%# LICENSE: +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work is distributed in the hope that it will be useful, but +%# WITHOUT ANY WARRANTY; without even the implied warranty of +%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +%# General Public License for more details. +%# +%# You should have received a copy of the GNU General Public License +%# along with this program; if not, write to the Free Software +%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +%# 02110-1301 or visit their web page on the internet at +%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. +%# +%# +%# CONTRIBUTION SUBMISSION POLICY: +%# +%# (The following paragraph is not intended to limit the rights granted +%# to you to modify and distribute this software under the terms of +%# the GNU General Public License and is only of importance to you if +%# you choose to contribute your changes and enhancements to the +%# community by submitting them to Best Practical Solutions, LLC.) +%# +%# By intentionally submitting any modifications, corrections or +%# derivatives to this work, or any other work intended for use with +%# Request Tracker, to Best Practical Solutions, LLC, you confirm that +%# you are the copyright holder for those contributions and you grant +%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, +%# royalty-free, perpetual, license to use, copy, create derivative +%# works based on those contributions, and sublicense and distribute +%# those contributions and any derivatives thereof. +%# +%# END BPS TAGGED BLOCK }}} +<table border="0" cellspacing="0" cellpadding="1" width="100%" class="queue-summary"> + +<tr> + <th class="collection-as-table"><&|/l&>Queue</&></th> +% for my $status ( @statuses ) { + <th class="collection-as-table"><% loc($status) %></th> +% } +</tr> + +<%PERL> +my $i = 0; +for my $queue (@queues) { + $i++; + my $name = $queue->{Name}; + $name =~ s/(['\\])/\\$1/g; + my $queue_cond = "Queue = '$name' AND "; + my $lifecycle = $lifecycle{ lc $queue->{'Lifecycle'} }; + my $all_q = $queue_cond . '(' . join( " OR ", map "Status = '$_'", grep $lifecycle->IsValid($_), @statuses ) . ')'; +</%PERL> +<tr class="<% $i%2 ? 'oddline' : 'evenline'%>" > + +<td> + <a href="<% RT->Config->Get('WebPath') %>/Search/Results.html?Query=<% $all_q |u,n %>" title="<% $queue->{Description} %>"><% $queue->{Name} %></a> +</td> + +<%perl> + for my $status (@statuses) { + if ( $lifecycle->IsValid( $status ) ) { +</%perl> +<td align="right"> + <a href="<% RT->Config->Get('WebPath') %>/Search/Results.html?Query=<% $queue_cond ."Status = '$status'" |u,n %>"><% $data->{$queue->{id}}->{$status } || '-' %></a> +</td> +% } else { +<td align="right">-</td> +% } +% } +</tr> +% } +</table> +<%INIT> + +my $Queues = RT::Queues->new( $session{'CurrentUser'} ); +$Queues->UnLimit(); +$m->callback( CallbackName => 'SQLFilter', Queues => $Queues ); + +my @queues = grep $queue_filter->($_), @{ $Queues->ItemsArrayRef }; +$m->callback( CallbackName => 'Filter', Queues => \@queues ); + +@queues = map { + { id => $_->Id, + Name => $_->Name, + Description => $_->Description || '', + Lifecycle => $_->Lifecycle->Name, + } +} grep $_, @queues; + +my %lifecycle; + +for my $queue (@queues) { + my $cycle = RT::Lifecycle->Load( $queue->{'Lifecycle'} ); + $lifecycle{ lc $cycle->Name } = $cycle; +} + +unless (@statuses) { + my %seen; + foreach my $set ( 'initial', 'active' ) { + foreach my $lifecycle ( map $lifecycle{$_}, sort keys %lifecycle ) { + push @statuses, grep !$seen{ lc $_ }++, $lifecycle->Valid($set); + } + } +} + +my $data = {}; +my $statuses = {}; + +use RT::Report::Tickets; +my $report = RT::Report::Tickets->new( RT->SystemUser ); +my $query = @queues + ? join(' OR ', map "Queue = ".$_->{id}, @queues) + : 'id < 0'; +$report->SetupGroupings( Query => $query, GroupBy => [qw(Status Queue)] ); + +while ( my $entry = $report->Next ) { + $data->{ $entry->__Value("Queue") }->{ $entry->__Value("Status") } + = $entry->__Value('id'); + $statuses->{ $entry->__Value("Status") } = 1; +} +</%INIT> +<%ARGS> +$queue_filter => undef +@statuses => () +</%ARGS> |