AutoUpdate Parents with TImeWorked

File:Placeholder

1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 
                                                                                                                                                                                                                                       #
2. Scrip name: WorkFlow MemberOf on Time
   # Description: Automatically add "Time Worked" to all vertical and horizontal
   # parent tickets
   #
3. Condition: User Defined
   # Action: User Defined
   # Template: Global template: Blank
   # Stage: TransactionBatch
   # Written: 12/10/2010 - Kenn Crocker
   #
4. Modified: MM/DD/YYYY - Name/comments
   #
   1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 1. 
                                                                                                                                                                                                                                       #
5. ----------------------------------------------------------------------------
   # Custom condition:
   #----------------------------------------------------------------------------
   # Set initial values

my $trans = $self->TransactionObj;
my $ticket = $self->TicketObj;

1. Get out if not for "TimeWorked"

return 0 unless ($trans->Type eq 'Set' &&
$trans->Field eq 'TimeWorked');

return 1;

1. ----------------------------------------------------------------------------
   # Custom action preparation code:
   #----------------------------------------------------------------------------
   # Set initial values

my $trans = $self->TransactionObj;
my $ticket = $self->TicketObj;
my $Time = (($trans->NewValue) - ($trans->OldValue));
my $MemberOf = $ticket->MemberOf;

1. get out if current ticket is not a "MemeberOf" (child of some parent)

return 0 unless $MemberOf;

1. Loop thru each parent and add the Child's "TimeWorked" to them
   # You can skip a parent ticket if it is not in active state by uncommenting
   # the next statement

while( my $l = $MemberOf->Next )
{
# next unless( $l->TargetObj->Status =~ /^(?:new|open|stalled)$/ );
my $ParentTime = $l->TargetObj->TimeWorked;
my $NewTime = ($ParentTime + $Time);
$l->TargetObj->SetTimeWorked($NewTime);
}

return 1;

1. ----------------------------------------------------------------------------
   # Custom action cleanup code: None
   #----------------------------------------------------------------------------
   return 1;