.
.. 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

Reply via email to