I have a script that creates a ticket, then one or more child tickets of that ticket in a different queue, and then one or more child tickets of them in yet another queue.  I also wrote a test to call that script and then verify that the expected tickets exist, etc.  However, when I try to clean up at the end of the test, I have a sub that takes the top level ticket and recurses down through the children trying to delete them, but unfortunately only the top level one gets deleted.  Here's the code:<div>
<br></div><div><div><br></div><div>sub recursiveDelete {</div><div><span class="Apple-tab-span" style="white-space:pre">        </span>my $ticketId = shift;</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">       </span>my $ticket = RT::Ticket->new(RT::SystemUser);</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>$ticket->Load($ticketId);</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">        </span>my $children = $ticket->Members;</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>while (my $child = $children->Next)</div><div><span class="Apple-tab-span" style="white-space:pre">       </span>{</div><div><span class="Apple-tab-span" style="white-space:pre">            </span>recursiveDelete($child->id);</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>}</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">   </span>$ticket->Delete;</div><div>}</div><div><br></div><div>I traced through it in the perl debugger, and the problem appears to be in Ticket::SetStatus('deleted') where it calls $self->__Value('status') and it returns 'deleted'.  So it thinks it's already deleted and doesn't change the status.  Any suggestions why this is happening?</div>
<div><br></div>-- <br><a href="http://www.linkedin.com/in/paultomblin">http://www.linkedin.com/in/paultomblin</a><br><a href="http://careers.stackoverflow.com/ptomblin">http://careers.stackoverflow.com/ptomblin</a><br><br>

</div>