[rt-users] Set TimeWorked automatically

[Miguel A. Rivera Rivera]

Hi,

Searching on past threads, I couldn't find how to set the "TimeWorked" automatically when a ticket was resolved, taking into account the "Started" and the "Resolved" dates. This prompted me to developed the following Scrip, which uses Date::Calc to find the date difference and update the TimeWorked field. Does RT already provide such an option?

Thanks,

Miguel

Condition: On Resolve
Action: User Defined
Template: Global template: Blank
Stage: TransactionCreate
Custom action preparation code: 1;
Custom action cleanup code:
---------------
use Date::Calc qw(Delta_DHMS);

my $time_elapsed = "0";

my $date_started_string = $self->TicketObj->Started;
my $date_resolved_string = $self->TicketObj->Resolved;

my (@date_started, at date_resolved);

if ($date_started_string =~ /(\d+)\-(\d+)\-(\d+)\s(\d+)\:(\d+)\:(\d+)/) {
	@date_started = ($1, $2, $3, $4, $5, $6);
}

if ($date_resolved_string =~ /(\d+)\-(\d+)\-(\d+)\s(\d+)\:(\d+)\:(\d+)/) {
	@date_resolved = ($1, $2, $3, $4, $5, $6);
}

my @diff = Delta_DHMS(@date_started, @date_resolved);

my $day_to_minutes = $diff[0] * 1440;
my $hour_to_minutes = $diff[1] * 60;

my $time_elapsed_sum = $day_to_minutes + $hour_to_minutes + $diff[2];

if($time_elapsed_sum > 0){
	$time_elapsed = qq($time_elapsed_sum\.$diff[3]);
}

$RT::Logger->debug("Setting TimeWorked to: $time_elapsed");

$self->TicketObj->SetTimeWorked( $time_elapsed );
---------------

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20071213/d79d6134/attachment.htm>