rt/html/RTx/Statistics/OpenStalled/Results.tsv

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
   6 %#                                          <jesse@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  26 %#
  27 %#
  28 %# CONTRIBUTION SUBMISSION POLICY:
  29 %#
  30 %# (The following paragraph is not intended to limit the rights granted
  31 %# to you to modify and distribute this software under the terms of
  32 %# the GNU General Public License and is only of importance to you if
  33 %# you choose to contribute your changes and enhancements to the
  34 %# community by submitting them to Best Practical Solutions, LLC.)
  35 %#
  36 %# By intentionally submitting any modifications, corrections or
  37 %# derivatives to this work, or any other work intended for use with
  38 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  39 %# you are the copyright holder for those contributions and you grant
  40 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  41 %# royalty-free, perpetual, license to use, copy, create derivative
  42 %# works based on those contributions, and sublicense and distribute
  43 %# those contributions and any derivatives thereof.
  44 %#
  45 %# END BPS TAGGED BLOCK }}}
  46 <%ARGS>
  47 @queues => @Statistics::OpenStalledQueueList
  48 </%ARGS>
  49
  50 <%INIT>
  51 use RTx::Statistics;
  52 use Time::Local;
  53
  54   my $n = 0;
  55   my @data;
  56   my @msgs;
  57   my %totals;
  58   my $QueryString;
  59   my $now = new RT::Date($session{CurrentUser});
  60   my $tix = new RT::Tickets($session{'CurrentUser'});
  61
  62   my %queues = map {
  63     $_ => 1;
  64   } (@queues);
  65
  66   # set content type
  67   $r->content_type('application/vnd.ms-excel');
  68
  69   $QueryString = "queues=" . join("&queues=", @queues);
  70
  71   my $queue = new RT::Queues($session{CurrentUser});
  72   $queue->UnLimit;
  73
  74   my $QueueObj = new RT::Queue($session{'CurrentUser'});
  75   $QueueObj->Load($queue);
  76
  77   # Put out some data about the generation of this file
  78   $m->out("Tickets by Status by Queue for Queues:\t" . join(',', @queues) . "\tGenerated at:\t" . Statistics::FormatDate("%x %X", $now). "\n\n");
  79
  80   # basically the same as index.html
  81
  82   # Output header row
  83   $m->out("Status");
  84   for ( sort keys %queues) {
  85       push @data, $_;
  86       my $Queueobj = new RT::Queue($session{'CurrentUser'});
  87       $Queueobj->Load($_);
  88       next if !$Queueobj->CurrentUserHasRight('SeeQueue');
  89       $m->out("\t" . $_);
  90   }
  91   $m->out("\tTotals\n");
  92
  93   foreach my $s (qw(new open stalled)) {
  94     $m->out("$s");
  95     my $total=0;
  96     foreach my $q (sort keys %queues)  {
  97       $tix = new RT::Tickets($session{'CurrentUser'});
  98       $tix->LimitQueue(VALUE => "$q");
  99       $tix->LimitStatus(VALUE => "$s");
 100       $totals{$q} += $tix->Count; # Add up columns for each queue
 101       $m->out("\t" . $tix->Count);
 102       $total += $tix->Count;
 103     }
 104     $m->out("\t$total\n");
 105     $totals{"Totals"} += $total;
 106   }
 107   $m->out("Totals");
 108   foreach my $q (sort keys %queues) {
 109     $m->out("\t" . $totals{$q});
 110   }
 111   $m->out("\t" . $totals{"Totals"} . "\n");
 112
 113   $m->abort();
 114 </%INIT>