RT3StatisticsPackageTimeWorked
This version works well for me, but hasn't been tested very thoroughly. You'll need to adjust the value of $Queue and the id of the custom field.
% # {{{ comment
% #
% # Created: 12/05/2004 13:55:01 EST by Andy Harrison
% # {
% # TLD => 'com',
% # Username => 'aharrison',
% # Domain => 'gmail'
% # }
% #
% # ------------------
% # Time Worked Report
% # ------------------
% #
% # Plugin for the RT Statistics Package
% #
% # $Id: RT3StatisticsPackageTimeWorked,v 1.7 2006/10/26 12:21:19 www-data Exp $
% #
% # }}}
<& /Elements/Header, Title => loc('RT Statistics: sysops-tasks queue, Time Worked Report') &>
<& /Statistics/Elements/Tabs, Title => loc('RT Statistics: Time Worked Report, sysops-tasks') &>
<form method="POST">
<p>
<&|/l&>Days to see</&>:
<INPUT TYPE=text MAXLENGTH=2 SIZE=3 VALUE="<% 1+$max %>" NAME="max">
<&|/l&>See weekends</&>:
<INPUT TYPE="checkbox" <% $weekends && 'CHECKED' %> name="weekends">
<INPUT TYPE="submit" VALUE="<&|/l&>Go!</&>"</INPUT>
</p>
% # --------
% # Re-add this if you want to be able to pick queues again
% #
% # <&|/l&>See Queue</&>:<BR>
% # <& /Elements/SelectQueue, Name=>"queue", ShowNullOption=>0 &>
% # --------
%
% #
% # 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->Set(
% Format => 'unix',
% Value => $dates[ $d ]->Unix
% );
% $CurrentDayStart->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->LimitDate(
% FIELD => 'LastUpdated',
% VALUE => $dates[$d]->ISO,
% OPERATOR => "<="
% );
% if ( $dates[$d+1] ) {
% $TicketsObj->LimitDate(
% FIELD => 'LastUpdated',
% VALUE => $CurrentDayStart->Unix,
% OPERATOR => ">="
% );
% }
%
% #
% # You could do this for other queues if you wanted
% #
% $TicketsObj->LimitQueue( VALUE => $Queue );
%
% #
% # Only show transactions where there was some work done
% #
% $TicketsObj->LimitTimeWorked( VALUE => 1, OPERATOR => ">" );
%
% #
% # Limiting the search to the custom field that we use
% # for the type work being done in the ticket
% #
% $TicketsObj->LimitCustomField(
% CUSTOMFIELD => 129,
% VALUE => "$CurrentTicketType",
% OPERATOR => "="
% );
%
% #
% #
% # $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->Next ) {
% my $CurrentTransactionsObj = $CurrentTicketObj->Transactions;
% my $LastTicket;
%
% while ( my $CurrentTicketTransactionObj =
% $CurrentTransactionsObj->Next ) {
% my $CurTransDateObj = new RT::Date( $RT::SystemUser );
% $CurTransDateObj->Set(
% Format => 'ISO',
% Value => $CurrentTicketTransactionObj->Created
% );
%
% if (
% ( $CurrentTicketTransactionObj->Type
% eq 'Comment'
% || $CurrentTicketTransactionObj->Type
% eq 'Correspond'
% || $CurrentTicketTransactionObj->Type
% eq 'Create'
% )
% &&
% ( $CurTransDateObj->Unix
% <= $dates[ $d ]->Unix
% && $CurTransDateObj->Unix
% >= $CurrentDayStart->Unix
% )
% && $CurrentTicketTransactionObj->TimeTaken
% ) {
%
% $TicketResults{ $CurrentDayStart->ISO }{ $CurrentTicketType } =
% $SubTableObj->render(
% {
% 'TicketID' =>
% $CurrentTicketTransactionObj->TicketObj->id,
% 'TicketSubject' =>
% $CurrentTicketTransactionObj->TicketObj->Subject,
% 'TicketRequestor' =>
% $CurrentTicketTransactionObj->TicketObj->RequestorAddresses,
% 'TransactionID' =>
% $CurrentTicketTransactionObj->id,
% 'Employee' =>
% $CurrentTicketTransactionObj->CreatorObj->Name,
% 'Worked' =>
% $CurrentTicketTransactionObj->TimeTaken,
% 'EntryDate' =>
% $CurrentTicketTransactionObj->Created,
% });
%
% $EmployeeSummary{ $CurrentTicketType }{ $CurrentTicketTransactionObj->CreatorObj->Name } +=
% $CurrentTicketTransactionObj->TimeTaken;
%
% $EmployeeSummary{ 'total/person' }{ $CurrentTicketTransactionObj->CreatorObj->Name } +=
% $CurrentTicketTransactionObj->TimeTaken;
%
% $EmployeeSummary{ $CurrentTicketType }{ 'total/type' } +=
% $CurrentTicketTransactionObj->TimeTaken;
% $EmployeeSummary{ 'total/person' }{ 'total/type' } +=
% $CurrentTicketTransactionObj->TimeTaken;
%
%
%# $EmployeeSummary{ $CurrentTicketType }{ $CurrentTicketTransactionObj->CreatorObj->Name } +=
%# $TicketResults{ $CurrentDayStart->ISO }{ $CurrentTicketType }{ Worked };
%#
%# $EmployeeSummary{ 'total/person' }{ $CurrentTicketTransactionObj->CreatorObj->Name } +=
%# $TicketResults{ $CurrentDayStart->ISO }{ $CurrentTicketType }{ Worked };
%#
%# $EmployeeSummary{ $CurrentTicketType }{ 'total/type' } +=
%# $TicketResults{ $CurrentDayStart->ISO }{ $CurrentTicketType }{ Worked };
%# $EmployeeSummary{ 'total/person' }{ 'total/type' } +=
%# $TicketResults{ $CurrentDayStart->ISO }{ $CurrentTicketType }{ Worked };
% }
% }
% }
%
% # $data[$x++][$d] = $TicketsObj->Count;
% }
% }
<p>
<hr>
</p>
% #
% # Dump the summary of gathered TimeWorked
% #
%
% #
% # Make the totals appear in bold
% #
% foreach my $TotalToStyle ( keys %{ $EmployeeSummary{ 'total/person' } } ) {
% $EmployeeSummary{ 'total/person' }{ $TotalToStyle } =
% "<b>"
% . $EmployeeSummary{ 'total/person' }{ $TotalToStyle }
% . "</b>";
% }
% foreach my $TotalToStyle ( keys %EmployeeSummary ) {
% $EmployeeSummary{ $TotalToStyle }{ 'total/type' } =
% "<b>"
% . $EmployeeSummary{ $TotalToStyle }{ 'total/type' }
% . "</b>";
% }
%
% print $TableObj->render( \%TicketResults );
% print $TableObj->render( \%EmployeeSummary );
<p>
<hr>
</p>
</form>
<BR>
%#
%# No graphing at the moment
%#
%## <%perl>
%## my $url= 'Elements/Chart?x_labels=';
%## for (0..$max) {
%## $url .= $data[0][$_] . ",";
%## }
%## chop $url;
%## $url .= "&";
%## shift @data;
%## for (0..$#data) {
%## $url .= "data".(1+$_)."=".(join ",", @{$data[$_]})."&";
%## }
%## chop $url;
%## </%perl>
%## <IMG SRC="<% $url %>" type="image/png">
%## <BR>
%## <font color="red"> <&|/l&>Resolved</&></FONT> <font color="green"><&|/l&>Created</&></font>
%## <font color="blue"> <&|/l&>Deleted</&> </font> <BR>
<%ARGS>
$max => undef
$Queue => 45
$weekends => 1
</%ARGS>
<%INIT>
unless ( eval { require HTML::QuickTable } ) {
die "Unable to load HTML::QuickTable module: $@\n"
}
my $TableObj = HTML::QuickTable->new(
labels => 1,
th => { class => 'ticketheader' },
table => { border => 0 },
td => { style => 'border: solid black 1px' },
null => ' ',
);
my $SubTableObj = HTML::QuickTable->new(
labels => 0,
table => { border => 0 },
null => ' ',
);
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->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->CustomFields;
while ( my $CustomFieldObj = $CustomFieldsObj->Next ) {
next unless $CustomFieldObj->Name eq "Type";
my $CustomFieldValuesObj = $CustomFieldObj->Values();
while ( my $CustomFieldValueObj = $CustomFieldValuesObj->Next ) {
push @CustomTicketTypes, $CustomFieldValueObj->Name;
}
}
#
# Create the list of dates.
#
until ($#dates == $max) {
# my $date = new RT::Date($session{CurrentUser});
my $date = new RT::Date( $RT::SystemUser );
$date->Set(Value=>time - $n, Format => 'unix');
$date->SetToMidnight;
my $when = $days[(localtime($date->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->Unix))[6]]."%20". (localtime($date->Unix))[3];
}
</%INIT>
* This seems great but where are you supposed to put this file?
- MichaelErana, August 5, 2005
* No idea, I'm trying to figure that out too.
- RoyMiller, October 26, 2005
* File goes into /<rt3dir>/share/html/RTx/Statistics/TimeWorked/index.html * Will need to add a link to the base index.html
- Spiker, June 10, 2009