<div>Excellent, I finally got what I want doing like this :</div><div><br></div><div>my $newdependedonby = 1234;</div><div>my ($status, $msg) = $self->TicketObj->AddLink(Type=>'DependsOn',Base=>$newdependedonby ); </div>
<div><br></div><div>Thanks Kevin,</div><div>X</div>
<br><br><div class="gmail_quote">On 27 November 2012 18:16, Kevin Falcone wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">On Tue, Nov 27, 2012 at 02:39:40PM +0100, Xavier Reigner wrote:<br>

>    In addition, I'd like to specify a link "Depended on by" to the tickets according to the<br>
>    previous test. I'm still confusing how I should update this field.<br>
>    $RT::Logger->info("Auto reference ticket #". $T_Obj->id ." to ticket #1234" );<br>
>    my ($status, $msg) = $self->TicketObj->_Set( 'DependedOnBy', '1234');<br>
<br>
</div>_Set is really dangerous.  In general, you should never use it.<br>
<br>
You want to call AddLink on your ticket.<br>
<a href="http://bestpractical.com/rt/docs/latest/RT/Ticket.html#AddLink" target="_blank">http://bestpractical.com/rt/docs/latest/RT/Ticket.html#AddLink</a><br>
<span class="HOEnZb"><font color="#888888"><br>
-kevin<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
>    unless( $status ) {<br>
>    $RT::Logger->error( "Unable to assign the ticket DependedOnBy" );<br>
>    return undef;<br>
>    }<br>
>    return 1;<br>
</div></div><br>
<br></blockquote></div><br>