Difference between revisions of "Talk:SetTimeWorkedAutomatically/@comment-BlaecHrim-20130513105807"

From Request Tracker Wiki
Jump to navigation Jump to search
m (1 revision imported)
 
(No difference)

Latest revision as of 16:53, 6 April 2016

This only counts business hours worked (you need perl module Date::Manip) :


use Date::Manip;

Date_Init("WorkDayBeg = 08:00", "WorkDayEnd = 16:00");

my $stringStart = $self->TicketObj->Started;

my $stringResolved = $self->TicketObj->Resolved;


my $parsedStart = &ParseDate($stringStart);

my $today_date = &ParseDate("$stringResolved");


my $err;

my $delta = DateCalc(ParseDate($parsedStart),$today_date,\$err,3);

$delta = Delta_Format($delta,2,'%st');


my $minutes = int( $delta / 60 );

my $hours = int( $delta / 3600 );


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

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