View source for TimeWorked

[[TimeWorked]] report is a custom report used mainly by managers to find out how much time users spent solving tickets. It has been write for RT 3.6.1 . The code has been written by Şubredu Manuel (diablo - packages.ro) Code updated for RT-3.8.2 by Disaster

INSTALL

Add to /path/to/rt/share/html/Tools/Reports/Elements/Tabs the following content:

 d =&gt; {
     title =&gt; loc('Time worked'),
     path  =&gt; 'Tools/Reports/TimeWorked.html',
 },
 

Add to /path/to/rt/share/html/Tools/Reports/index.html the following content:

 D =&gt; {
     title       =&gt; loc('Time worked'),
     path        =&gt; '/Tools/Reports/TimeWorked.html',
     description =&gt; loc('Show how much time has been worked on resolved tickets for a given interval'),
 },
 

Now, create /path/to/rt/share/html/Tools/Reports/[[TimeWorked]].html with the following content:

 <nowiki>&lt;%args&gt;
  $StartDate =&gt; undef
  $EndDate   =&gt; undef
 &lt;/%args&gt;
 
 &lt;&amp; /Elements/Header, Title =&gt; $title &amp;&gt;
 &lt;&amp; /Tools/Reports/Elements/Tabs, current_tab =&gt; 'Tools/Reports/TimeWorked.html', Title =&gt; $title &amp;&gt;
 &lt;hr&gt;
 &lt;%init&gt;
 my ($start_date, $end_date, $title);
 
 $title = loc('Time worked in all queues');
 
 $start_date = RT::Date-&gt;new($session{'CurrentUser'});
 $end_date   = RT::Date-&gt;new($session{'CurrentUser'});
 
 if ($StartDate) {
   $start_date-&gt;Set(Format =&gt; 'unknown', Value =&gt; $StartDate);
   $StartDate = $start_date-&gt;AsString;
 }
 
 if ($EndDate) {
   $end_date-&gt;Set(Format =&gt; 'unknown', Value =&gt; $EndDate);
   $EndDate = $end_date-&gt;AsString;
 }
 
 &lt;/%init&gt;
 
 &lt;form method="post" action="TimeWorked.html"&gt;
  &lt;br /&gt;
   &lt;&amp;|/l&amp;&gt;Start date&lt;/&amp;&gt;:
   &lt;&amp; /Elements/SelectDate, Name =&gt; 'StartDate', Default =&gt; ($StartDate) ? $start_date-&gt;ISO : ''&amp;&gt;
  &lt;br /&gt;
   &lt;&amp;|/l&amp;&gt;End date&lt;/&amp;&gt;:
   &lt;&amp; /Elements/SelectDate, Name =&gt; 'EndDate', Default =&gt; ($EndDate) ? $end_date-&gt;ISO : ''&amp;&gt;
 
 &lt;&amp; /Elements/Submit&amp;&gt;
 
 &lt;/form&gt;
 &lt;%perl&gt;
 my ($uhash, $ulist, $q_list, $queue_time);
 
 # First let's prepare to take the users list
 $ulist = new RT::Users($session{'CurrentUser'});
 
 # We consider only the priviledged users
 $ulist-&gt;LimitToPrivileged;
 
 # initialize the users hash information. This hash is going to be used
 # to hold all the time worked information
 
 while (my $user = $ulist-&gt;Next) {
   my %ustat;
 
   $ustat{'real_name'} = $user-&gt;RealName;
   $ustat{'total'}     = 0;
   $ustat{'queues'}    = ();
 
   $uhash-&gt;{$user-&gt;Id} = \%ustat;
 }
 
 # prepare to take the queues list
 $q_list = RT::Queues-&gt;new($session{'CurrentUser'});
 $q_list-&gt;UnLimit;
 
 # for each queue
 while(my $queue = $q_list-&gt;Next) {
   next if ($queue-&gt;Disabled);
 
   my ($sql_query, $tickets);
 
   $sql_query = q{};
   $tickets = RT::Tickets-&gt;new($session{'CurrentUser'});
   $queue_time-&gt;{$queue-&gt;Name} = 0;
 
   # select only the RESOLVED tickets from the current queue
   $sql_query = sprintf("Status = 'resolved' AND Queue = '%s'", $queue-&gt;Name);
   if ($StartDate) {
     $sql_query .= sprintf(" AND Resolved &gt;= '%s'", $start_date-&gt;ISO);
   }
   if ($EndDate) {
     $sql_query .= sprintf(" AND Resolved &lt;= '%s'", $end_date-&gt;ISO);
   }
 
   $tickets-&gt;FromSQL($sql_query);
 
   # cycle trough the tickets from the current queue
   while(my $ticket = $tickets-&gt;Next()) {
     my $user_id;
 
     $user_id = $ticket-&gt;Owner;
 
     # adjust the total time worked by all users on the current queue
     $queue_time-&gt;{$queue-&gt;Name} += $ticket-&gt;TimeWorked;
 
     # adjust the total time worked (for all queues)
     $uhash-&gt;{$user_id}-&gt;{total} += $ticket-&gt;TimeWorked;
 
     # adjust the time spent on the current queue
     if ($uhash-&gt;{$user_id}-&gt;{queues}-&gt;{$queue-&gt;Name}) {
       $uhash-&gt;{$user_id}-&gt;{queues}-&gt;{$queue-&gt;Name} += $ticket-&gt;TimeWorked;
     }
     else {
       $uhash-&gt;{$user_id}-&gt;{queues}-&gt;{$queue-&gt;Name} = $ticket-&gt;TimeWorked;
     }
   }
 }
 foreach(keys(%{ $uhash })) {
   my $user_id = $_;
 
   next if ($uhash-&gt;{$user_id}-&gt;{total}        == 0);
   print '&lt;h2&gt;',$uhash-&gt;{$user_id}-&gt;{real_name},'&lt;/h2&gt;';
   print '&lt;table&gt;&lt;tdata&gt;',$/;
 
   foreach(keys(%{ $uhash-&gt;{$user_id}-&gt;{queues} })) {
 
     next if ($uhash-&gt;{$user_id}-&gt;{queues}-&gt;{$_} == 0);
 
     print '&lt;tr&gt;',
            '&lt;td&gt;',$_,'&lt;/td&gt;',
            '&lt;td&gt;',$uhash-&gt;{$user_id}-&gt;{queues}-&gt;{$_},'&lt;/td&gt;',
           '&lt;/tr&gt;',$/;
   }
   print '&lt;tr style="font-weight: bold;"&gt;&lt;td&gt;Total&lt;/td&gt;&lt;td&gt;',$uhash-&gt;{$user_id}-&gt;{total},'&lt;/td&gt;&lt;/tr&gt;',
         '&lt;/tdata&gt;&lt;/table&gt;',$/;
 }
 
 if (keys(%{ $queue_time })) {
   my $total_queues_time = 0;
 
   print '&lt;h2&gt;Queue times&lt;/h2&gt;',
         '&lt;table&gt;&lt;tdata&gt;',$/;
   foreach(keys(%{ $queue_time })) {
     print '&lt;tr&gt;',
            '&lt;td&gt;',$_,'&lt;/td&gt;',
            '&lt;td&gt;',$queue_time-&gt;{$_},'&lt;/td&gt;',
           '&lt;/tr&gt;',$/;
 
     $total_queues_time += $queue_time-&gt;{$_};
   }
   print '&lt;tr style="font-weight: bold"&gt;',
          '&lt;td&gt;Total&lt;/td&gt;',
          '&lt;td&gt;',$total_queues_time,'&lt;/td&gt;',
         '&lt;/tr&gt;',$/,
        '&lt;/tdata&gt;&lt;/table&gt;',$/;
 }
 
 &lt;/%perl&gt;
 </nowiki>