[RT-es] Copiar comentario a un CF, cuando se resuelve un ticket

[Sebastian Parada]

Estimad en s,


Hola  quisiera ver si me pueden ayudar , en la creacion del siguiente scrip.

La idea es poder copiar el contenido del mensaje que se envía .cuando un 
ticket se resuelve a un Custom Fields

he tratado de hacerlo, pero no me funciona, ojala me puedan dar una mano 
,aki  copio el codigo que he estado trabajando:

El nombre del campo es INFTecnico.


De antemano muchas gracias

# ------------------------------------------------------------------- #
$RT::Logger->debug("Informe tecnico 1");
my $cf = RT::CustomField->new($self->TransactionObj->CurrentUser);
$cf->LoadByNameAndQueue(Queue => $self->TicketObj->QueueObj->Id, Name => 
'INFTecnico');
unless ($cf->Id) {
    return(1);
}

  $RT::Logger->debug("Informe tecnico 2");
 
#------------------------------------------------------------------------------#
 my $Ticket = $self->TicketObj;
 my $Transactions = $Ticket->Transactions;
 my $Transactions->Limit( FIELD => 'Type', VALUE => 'Comment' );
 my $Transactions->OrderByCols (
               { FIELD => 'Created',  ORDER => 'DESC' },
               { FIELD => 'id',     ORDER => 'DESC' },
               );

 my $resolution_comment; 
 my $CommentObj = my $Transactions->First;
 if( $CommentObj && $CommentObj->id ) {
  $resolution_comment = $CommentObj->Content;


#------------------------------------------------------------------------------#

  my $Values = $self->TicketObj->CustomFieldValues($cf->id);
  $self->TicketObj->AddCustomFieldValue(Field => $cf->id, Value 
=>$resolution_comment);
  $RT::Logger->debug("Informe tecnico 3");
  return 1;
#-------------------------------------------------------------------------- 
#
}



-- 

__________________________________________
Sebastián Parada Ríos
Oficial de Seguridad
Área Seguridad Informática
Subdirección Innovación Tecnológica
Pontificia Universidad Católica de Chile
__________________________________________

"El futuro es de los espíritus inquietos, de las mentes innovadoras, de la voluntad ávida, 
 que hace de cada falencia una oportunidad, de cada error una chance para crecer, y de cada emprendimiento, el arte de todas las cosas."