.
.. and in case anyone was curious the equivelent and much better looking
code to the RT::Client::REST snippet I provided earlier is:
my $ips = $self->TicketObj->CustomFieldValues( 'IP' );
while ( my $ipobj = $ips->Next ) {
my $ip = $ipobj->Content;
my $tsql = qq/Queue = 'Incidents' AND Status = 'open' AND CF.{IP} =
'$ip'/;
my $tickets = RT::Tickets->new(RT->SystemUser);
$tickets->FromSQL($tsql);
while (my $t = $tickets->Next) {
$self->TicketObj->AddLink( Type=>'MemberOf', Target=> $t->id );
}
}
--
RT Training in Seattle, June 19-20: http://bestpractical.com/training