rt/html/Reports/Activity/ResolutionStatistics.html

   1 <&|Elements/Wrapper, %ARGS, title => loc("Resolution statistics"),
   2     path => "Reports/Activity/ResolutionStatistics.html",
   3     &>
   4
   5 <& Elements/MiniPlot,
   6    data => \%plot,
   7    major => ['Date range','Last 30 days','Last 60 days','Last 90 days','Ever'],
   8    minor => [(sort keys %queues), "Average"]
   9  &>
  10
  11 <table style="width: 100%">
  12 <tr>
  13 <td></td><th colspan="4">Number of tickets closed / Average resolution time per ticket</th>
  14 </tr>
  15 <tr class="titlerow">
  16 <th>Queue</th>
  17 <th>Date range</th>
  18 <th>Last 30 days</th>
  19 <th>Last 60 days</th>
  20 <th>Last 90 days</th>
  21 <th>Ever</th>
  22 </tr>
  23 % for my $queue (sort keys %queues) {
  24 <tr>
  25 <th><% $queue %></th>
  26 % for my $period ('Date range','Last 30 days','Last 60 days','Last 90 days','Ever') {
  27 <td><% scalar @{$closed{$period}{$queue}} %> / <% $average_resolve_times{$period}{$queue} %></td>
  28 % }
  29 </tr>
  30 % }
  31 <tr class="grandtotal">
  32 <th>Ticket average</th>
  33 % for my $period ('Date range','Last 30 days','Last 60 days','Last 90 days','Ever') {
  34 <td><% $average_resolve_times{$period}{_all_count} %> / <% $average_resolve_times{$period}{_all} %></td>
  35 % }
  36 </tr>
  37 </table>
  38
  39 </&>
  40 <%args>
  41 $query => 'id > 0'
  42 $start => "2005/01/01"
  43 $end   => "2006/01/01"
  44 </%args>
  45 <%init>
  46
  47 my $in_30_days = RT::Date->new($session{'CurrentUser'});
  48 $in_30_days->Set(Format => 'Unix', Value => ( time - (86400*30)));
  49 my $in_60_days = RT::Date->new($session{'CurrentUser'});
  50 $in_60_days->Set(Format => 'Unix', Value => ( time - (86400*60)));
  51 my $in_90_days = RT::Date->new($session{'CurrentUser'});
  52 $in_90_days->Set(Format => 'Unix', Value => ( time - (86400*90)));
  53
  54 my %queries;
  55 $queries{'Date range'}   = "(Resolved >= '$start' AND Resolved <= '$end')";
  56 $queries{'Last 30 days'} = "(Resolved >= '".$in_30_days->ISO."')";
  57 $queries{'Last 60 days'} = "(Resolved >= '".$in_60_days->ISO."')";
  58 $queries{'Last 90 days'} = "(Resolved >= '".$in_90_days->ISO."')";
  59 $queries{'Ever'}         = "(Status = 'resolved' OR Status = 'rejected')";
  60
  61
  62 my %closed;
  63 my %queues;
  64 foreach my $period (keys %queries) {
  65     my $tix = RT::Tickets->new($session{'CurrentUser'});
  66     $tix->FromSQL($query . " AND " .$queries{$period});
  67
  68     while (my $ticket = $tix->Next) {
  69         push @{ $closed{$period}{$ticket->QueueObj->Name}}, $ticket;
  70         $queues{$ticket->QueueObj->Name}++;
  71     }
  72 }
  73
  74 my %restimes;
  75 my %average_resolve_times;
  76 my %plot;
  77 use Time::Duration;
  78 foreach my $period ( keys %closed ) {
  79     foreach my $queue ( keys %{$closed{$period}} ) {
  80         foreach my $ticket (@{$closed{$period}{$queue}} ) {
  81             push @{$restimes{$period}{$queue}}, ( $ticket->ResolvedObj->Unix - $ticket->CreatedObj->Unix);
  82         }
  83
  84         my $total_time = 0;
  85         $total_time+= $_ for @{$restimes{$period}{$queue}};
  86         $average_resolve_times{$period}{'_all_time'} += $total_time;
  87         $average_resolve_times{$period}{'_all_count'} += @{$restimes{$period}{$queue}};
  88         $plot{$period}{$queue} = $total_time / @{$restimes{$period}{$queue}};
  89         $average_resolve_times{$period}{$queue} = Time::Duration::concise(Time::Duration::duration($plot{$period}{$queue}));
  90     }
  91     $plot{$period}{Average} = $average_resolve_times{$period}{'_all_time'} / $average_resolve_times{$period}{'_all_count'};
  92     $average_resolve_times{$period}{'_all'}  = Time::Duration::concise(Time::Duration::duration($plot{$period}{Average}));
  93 }
  94
  95 </%init>