To list,<br><br>I was fooling around with the idea of creating a scrip that would allow the resolution of a parent ticket to automatically resolve all children tickets. I thought this would be helpful if a developer had a bunch of sub-tasks/tickets and they didn't want to go in and "resolve" each one individually, they could just "resolve" the parent and that would cause a cascade effect to go ahead and resolve all the children. This is the code I developed:<br>
<br># Resolve all Ticket children when the Ticket is resolved<br><br>if  (defined($id))<br>    {<br>     $tickets->FromSQL('Type = "ticket" AND MemberOf="'.$id.'"');<br>#  Loop thru all Children<br>
     while (my $child = $tickets->Next) {<br>        next unless( $child->Status =~ /^(?:new|open|stalled)$/ );<br>        $RT::Logger->info("Closing associated child");<br>        $child->SetStatus("resolved");<br>
<br>This worked fine except in the situation where a "Child" ticket was also a "Depends/on" ticket. The cascade stops. Well, that made sense, but I want to get around that.<br><br>So I tried to force it with:<br>
<br># Resolve all Ticket children when the Ticket is resolved<br><br>........<br>........<br>        $child->SetStatus("resolved", 'Force');<br><br>This didn't work. The top parent <i>was resolved</i>, but no cascade effect to any of the "child" tickets at all, even when there was no "DependsOn" relationship.<br>
<br>I looked at the log and it shows the first ticket resolved, but no errors after that and yet, the children weren't resolved.<br><br>Without the "Force", it works just fine, up to the ticket with the "DependsOn"child.<br>
<br>So .... I went to several Perl handbooks (Perl Cookbook by O'Reilly, Perl for Dummies, etc.) and found nothing on the "Set" command, let alone the "Force" option.<br>I went to the RT Essentials book and found nothing.<br>
<br>I am <b>NOT</b> a perl programmer, but understand enough basic perl to be able to clone a scrip or two and modify it with what little perl knowledge(?) I have.<br><br>Obviously, I don't know enough about perl to figure this one out.<br>
<br>Can anyone help me out with some perl clues/instruction here?<br><br>Thanks in advance.<br><br>Kenn<br>LBNL<br>