View source for RT3StatisticsPackageTimeWorked

This version works well for me, but hasn't been tested very thoroughly. You'll need to adjust the value of <code> $Queue</code> and the id of the custom field.

 <nowiki>% # {{{ comment
 % #
 % # Created: 12/05/2004 13:55:01 EST by Andy Harrison
 % #         {
 % #             TLD      =&gt; 'com',
 % #             Username =&gt; 'aharrison',
 % #             Domain   =&gt; 'gmail'
 % #         }
 % #
 % # ------------------
 % # Time Worked Report
 % # ------------------
 % #
 % # Plugin for the RT Statistics Package
 % #
 % # $Id: RT3StatisticsPackageTimeWorked,v 1.7 2006/10/26 12:21:19 www-data Exp $
 % #
 % # }}}
 
 &lt;&amp; /Elements/Header, Title =&gt; loc('RT Statistics: sysops-tasks queue, Time Worked Report') &amp;&gt;
 &lt;&amp; /Statistics/Elements/Tabs,  Title =&gt; loc('RT Statistics: Time Worked Report, sysops-tasks') &amp;&gt;
 
 &lt;form method="POST"&gt;
 &lt;p&gt;
 &lt;&amp;|/l&amp;&gt;Days to see&lt;/&amp;&gt;:
 &lt;INPUT TYPE=text MAXLENGTH=2 SIZE=3 VALUE="&lt;% 1+$max %&gt;" NAME="max"&gt;
 &lt;&amp;|/l&amp;&gt;See weekends&lt;/&amp;&gt;:
 &lt;INPUT TYPE="checkbox" &lt;% $weekends &amp;&amp; 'CHECKED' %&gt; name="weekends"&gt;
 &lt;INPUT TYPE="submit" VALUE="&lt;&amp;|/l&amp;&gt;Go!&lt;/&amp;&gt;"&lt;/INPUT&gt;
 &lt;/p&gt;
 
 % # --------
 % # Re-add this if you want to be able to pick queues again
 % #
 % # &lt;&amp;|/l&amp;&gt;See Queue&lt;/&amp;&gt;:&lt;BR&gt;
 % # &lt;&amp; /Elements/SelectQueue, Name=&gt;"queue", ShowNullOption=&gt;0 &amp;&gt;
 % # --------
 %
 % #
 % # Now start iterating through our dates and
 % # building our our results and summary hashes.
 % #
 %
 % for my $d (0..$#dates) {
 %
 %     my $x = 1;
 %       for my $CurrentTicketType ( @CustomTicketTypes ) {
 %           #
 %           # Create a fresh Tickets object
 %           #
 %           my $TicketsObj = new RT::Tickets( $RT::SystemUser );
 %           #
 %           # (just wanted a CurrentDayStart for my own readability )
 %           #
 %           my $CurrentDayStart = new RT::Date( $RT::SystemUser );
 %           $CurrentDayStart-&gt;Set(
 %                   Format =&gt; 'unix',
 %                   Value  =&gt; $dates[ $d ]-&gt;Unix
 %           );
 %           $CurrentDayStart-&gt;SubtractDay;
 %
 %           #
 %           # In the current date range, we want to just
 %           # make a list of tickets that have been updated
 %           # in the current time period for this pass.
 %           #
 %           $TicketsObj-&gt;LimitDate(
 %                   FIELD    =&gt; 'LastUpdated',
 %                   VALUE    =&gt; $dates[$d]-&gt;ISO,
 %                   OPERATOR =&gt; "&lt;="
 %           );
 %           if ( $dates[$d+1] ) {
 %               $TicketsObj-&gt;LimitDate(
 %                       FIELD    =&gt; 'LastUpdated',
 %                       VALUE    =&gt; $CurrentDayStart-&gt;Unix,
 %                       OPERATOR =&gt; "&gt;="
 %               );
 %           }
 %
 %           #
 %           # You could do this for other queues if you wanted
 %           #
 %           $TicketsObj-&gt;LimitQueue( VALUE =&gt; $Queue );
 %
 %           #
 %           # Only show transactions where there was some work done
 %           #
 %           $TicketsObj-&gt;LimitTimeWorked( VALUE =&gt; 1, OPERATOR =&gt; "&gt;" );
 %
 %           #
 %           # Limiting the search to the custom field that we use
 %           # for the type work being done in the ticket
 %           #
 %           $TicketsObj-&gt;LimitCustomField(
 %                   CUSTOMFIELD =&gt; 129,
 %                   VALUE       =&gt; "$CurrentTicketType",
 %                   OPERATOR    =&gt; "="
 %           );
 %
 %           #
 %           #
 %           # $TicketsObj will now contain tickets with
 %           # a transaction for the current date
 %           #
 
 %           #
 %           # For every ticket in the list, we want to cycle through its
 %           # transactions looking for what we want.
 %           #
 %           while ( my $CurrentTicketObj = $TicketsObj-&gt;Next ) {
 %               my $CurrentTransactionsObj = $CurrentTicketObj-&gt;Transactions;
 %               my $LastTicket;
 %
 %               while ( my $CurrentTicketTransactionObj =
 %                           $CurrentTransactionsObj-&gt;Next ) {
 %                   my $CurTransDateObj = new RT::Date( $RT::SystemUser );
 %                   $CurTransDateObj-&gt;Set(
 %                           Format =&gt; 'ISO',
 %                           Value  =&gt; $CurrentTicketTransactionObj-&gt;Created
 %                   );
 %
 %                   if (
 %                           (    $CurrentTicketTransactionObj-&gt;Type
 %                                    eq 'Comment'
 %                             || $CurrentTicketTransactionObj-&gt;Type
 %                                    eq 'Correspond'
 %                             || $CurrentTicketTransactionObj-&gt;Type
 %                                    eq 'Create'
 %                           )
 %                       &amp;&amp;
 %                           (       $CurTransDateObj-&gt;Unix
 %                                       &lt;= $dates[ $d ]-&gt;Unix
 %                               &amp;&amp;  $CurTransDateObj-&gt;Unix
 %                                       &gt;= $CurrentDayStart-&gt;Unix
 %                           )
 %                       &amp;&amp;  $CurrentTicketTransactionObj-&gt;TimeTaken
 %                   ) {
 %
 %                       $TicketResults{ $CurrentDayStart-&gt;ISO }{ $CurrentTicketType } =
 %                           $SubTableObj-&gt;render(
 %                           {
 %                               'TicketID'          =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;TicketObj-&gt;id,
 %                               'TicketSubject'     =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;TicketObj-&gt;Subject,
 %                               'TicketRequestor'   =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;TicketObj-&gt;RequestorAddresses,
 %                               'TransactionID'     =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;id,
 %                               'Employee'          =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;CreatorObj-&gt;Name,
 %                               'Worked'            =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;TimeTaken,
 %                               'EntryDate'         =&gt;
 %                                   $CurrentTicketTransactionObj-&gt;Created,
 %                           });
 %
 %                       $EmployeeSummary{ $CurrentTicketType }{ $CurrentTicketTransactionObj-&gt;CreatorObj-&gt;Name } +=
 %                           $CurrentTicketTransactionObj-&gt;TimeTaken;
 %
 %                       $EmployeeSummary{ 'total/person' }{ $CurrentTicketTransactionObj-&gt;CreatorObj-&gt;Name } +=
 %                           $CurrentTicketTransactionObj-&gt;TimeTaken;
 %
 %                       $EmployeeSummary{ $CurrentTicketType }{ 'total/type' } +=
 %                           $CurrentTicketTransactionObj-&gt;TimeTaken;
 %                       $EmployeeSummary{ 'total/person' }{ 'total/type' } +=
 %                           $CurrentTicketTransactionObj-&gt;TimeTaken;
 %
 %
 %#                       $EmployeeSummary{ $CurrentTicketType }{ $CurrentTicketTransactionObj-&gt;CreatorObj-&gt;Name } +=
 %#                           $TicketResults{ $CurrentDayStart-&gt;ISO }{ $CurrentTicketType }{ Worked };
 %#
 %#                       $EmployeeSummary{ 'total/person' }{ $CurrentTicketTransactionObj-&gt;CreatorObj-&gt;Name } +=
 %#                           $TicketResults{ $CurrentDayStart-&gt;ISO }{ $CurrentTicketType }{ Worked };
 %#
 %#                       $EmployeeSummary{ $CurrentTicketType }{ 'total/type' } +=
 %#                           $TicketResults{ $CurrentDayStart-&gt;ISO }{ $CurrentTicketType }{ Worked };
 %#                       $EmployeeSummary{ 'total/person' }{ 'total/type' } +=
 %#                           $TicketResults{ $CurrentDayStart-&gt;ISO }{ $CurrentTicketType }{ Worked };
 %                   }
 %               }
 %           }
 %
 % #         $data[$x++][$d] = $TicketsObj-&gt;Count;
 %     }
 % }
 &lt;p&gt;
 &lt;hr&gt;
 &lt;/p&gt;
 % #
 % # Dump the summary of gathered TimeWorked
 % #
 %
 % #
 % # Make the totals appear in bold
 % #
 % foreach my $TotalToStyle ( keys %{ $EmployeeSummary{ 'total/person' } } ) {
 %       $EmployeeSummary{ 'total/person' }{ $TotalToStyle } =
 %           "&lt;b&gt;"
 %           . $EmployeeSummary{ 'total/person' }{ $TotalToStyle }
 %           . "&lt;/b&gt;";
 % }
 % foreach my $TotalToStyle ( keys %EmployeeSummary ) {
 %       $EmployeeSummary{ $TotalToStyle }{ 'total/type' } =
 %           "&lt;b&gt;"
 %           . $EmployeeSummary{ $TotalToStyle }{ 'total/type' }
 %           . "&lt;/b&gt;";
 % }
 %
 % print $TableObj-&gt;render( \%TicketResults );
 % print $TableObj-&gt;render( \%EmployeeSummary );
 
 &lt;p&gt;
 &lt;hr&gt;
 &lt;/p&gt;
 &lt;/form&gt;
 &lt;BR&gt;
 
 %#
 %# No graphing at the moment
 %#
 %## &lt;%perl&gt;
 %## my $url= 'Elements/Chart?x_labels=';
 %## for (0..$max) {
 %##     $url .= $data[0][$_] . ",";
 %## }
 %## chop $url;
 %## $url .= "&amp;";
 %## shift @data;
 %## for (0..$#data) {
 %##     $url .= "data".(1+$_)."=".(join ",", @{$data[$_]})."&amp;";
 %## }
 %## chop $url;
 %## &lt;/%perl&gt;
 %## &lt;IMG SRC="&lt;% $url %&gt;" type="image/png"&gt;
 %## &lt;BR&gt;
 %## &lt;font color="red"&gt; &lt;&amp;|/l&amp;&gt;Resolved&lt;/&amp;&gt;&lt;/FONT&gt; &lt;font color="green"&gt;&lt;&amp;|/l&amp;&gt;Created&lt;/&amp;&gt;&lt;/font&gt;
 %## &lt;font color="blue"&gt; &lt;&amp;|/l&amp;&gt;Deleted&lt;/&amp;&gt; &lt;/font&gt; &lt;BR&gt;
 
 &lt;%ARGS&gt;
 $max =&gt; undef
 $Queue =&gt; 45
 $weekends =&gt; 1
 &lt;/%ARGS&gt;
 
 &lt;%INIT&gt;
 
 unless ( eval { require HTML::QuickTable } ) {
     die "Unable to load HTML::QuickTable module: $@\n"
 }
 
 my $TableObj = HTML::QuickTable-&gt;new(
                                       labels =&gt; 1,
                                       th     =&gt; { class  =&gt; 'ticketheader' },
                                       table  =&gt; { border =&gt; 0 },
                                       td     =&gt; { style  =&gt; 'border: solid black 1px' },
                                       null   =&gt; ' ',
                                     );
 
 my $SubTableObj = HTML::QuickTable-&gt;new(
                                       labels =&gt; 0,
                                       table  =&gt; { border =&gt; 0 },
                                       null   =&gt; ' ',
                                       );
 
 
 
 my @days = qw(Sun Mon Tue Wed Thu Fri Sat);
 my $n = 0;
 my @data = ([]);
 my @dates;
 my @msgs;
 my @CustomTicketTypes;
 my %EmployeeSummary;
 my %TicketResults;
 $max--;
 
 #
 # Load up the specified queue
 #
 # my $QueueObj = new RT::Queue($session{'CurrentUser'});
 my $QueueObj = new RT::Queue( $RT::SystemUser );
 $QueueObj-&gt;Load( $Queue ) || Abort(loc("Queue could not be loaded."));
 
 #
 # We use a custom field to designate the particular
 # type of work being done, Maintenance, Security,
 # Documentation, etc.
 #
 # All you need is push strings to the @CustomTicketTypes
 # list and it will split up the report into those
 # categories
 #
 my $CustomFieldsObj = $QueueObj-&gt;CustomFields;
 while ( my $CustomFieldObj = $CustomFieldsObj-&gt;Next ) {
     next unless $CustomFieldObj-&gt;Name eq "Type";
     my $CustomFieldValuesObj = $CustomFieldObj-&gt;Values();
     while ( my $CustomFieldValueObj = $CustomFieldValuesObj-&gt;Next ) {
         push @CustomTicketTypes, $CustomFieldValueObj-&gt;Name;
     }
 }
 
 #
 # Create the list of dates.
 #
 until ($#dates == $max) {
 #   my $date = new RT::Date($session{CurrentUser});
     my $date = new RT::Date( $RT::SystemUser );
     $date-&gt;Set(Value=&gt;time - $n, Format =&gt; 'unix');
     $date-&gt;SetToMidnight;
     my $when = $days[(localtime($date-&gt;SetToMidnight))[6]];
     $n+= 60*60*24;
     next if !$weekends and ( $when eq "Sat" or $when eq "Sun" );
     unshift @dates, $date;
     unshift @{ $data[0] },
         $days[(localtime($date-&gt;Unix))[6]]."%20". (localtime($date-&gt;Unix))[3];
 
 }
 &lt;/%INIT&gt;
 
 * This seems great but where are you supposed to put this file?
 </nowiki>

- [[MichaelErana]], August 5, 2005

 <nowiki>* No idea, I'm trying to figure that out too.
 </nowiki>

- [[RoyMiller]], October 26, 2005

 <nowiki>* File goes into /&lt;rt3dir&gt;/share/html/RTx/Statistics/TimeWorked/index.html
 * Will need to add a link to the base index.html
 </nowiki>

- Spiker, June 10, 2009