Kevin,<br><br>AHHH. I'll check it out.<br><br>Thanks.<br><br>Kenn<br>LBNL<br><br><div class="gmail_quote">On Mon, Jan 24, 2011 at 6:59 PM, Kevin Falcone <span dir="ltr"><<a href="mailto:falcone@bestpractical.com">falcone@bestpractical.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><div><div></div><div class="h5">On Mon, Jan 24, 2011 at 12:06:02PM -0800, Kenneth Crocker wrote:<br>

>    To list,<br>
><br>
>    I was fooling around with the idea of creating a scrip that would allow the resolution of a<br>
>    parent ticket to automatically resolve all children tickets. I thought this would be helpful<br>
>    if a developer had a bunch of sub-tasks/tickets and they didn't want to go in and "resolve"<br>
>    each one individually, they could just "resolve" the parent and that would cause a cascade<br>
>    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"<br>
>    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 was resolved, but no cascade effect to any of the "child"<br>
>    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,<br>
>    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.)<br>
>    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>
</div></div>The relevant documentation is found in perldoc<br>
lib/RT/Ticket_Overlay.pm . You're passing incorrect arguments to<br>
SetStatus<br>
<div><div></div><div class="h5"><br>
>    I am NOT a perl programmer, but understand enough basic perl to be able to clone a scrip or<br>
>    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>
</div></div></blockquote></div><br>