<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from rtf -->
<style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<font face="Arial, sans-serif" size="2">
<div>Hello,</div>
<div> </div>
<div>I have a problem, have a queue with tickets, when they are resolved status i want to</div>
<div>clone the ticket and dispatch the clone to another queue: RT-Test2_IdeeManag</div>
<div>The clone don't have personnal infos like Requestor or Owner,</div>
<div>the original ticket will be archived.</div>
<div> </div>
<div>I wrote a script, and i work good, but i just have a problem with the ticket</div>
<div>comment, was empty.</div>
<div> </div>
<div>$self->TransactionObj->Content; have the tickets comments, but only work "On Create"</div>
<div> </div>
<div>On Resove, i think the TransactionObj is empty…</div>
<div><font face="Calibri, sans-serif" size="2"> </font></div>
<div>Of course i try to copy this Content with this code:</div>
<div>$self->TicketObj->Comment->MIMEObj</div>
<div> </div>
<div>I is possible to read ticket comment: $self->TicketObj->Comment ?</div>
<div> </div>
<div>Tanks,</div>
<div>Best regards.</div>
<div> </div>
<div>Marco</div>
<div> </div>
<div><font face="Calibri, sans-serif" size="2"> </font></div>
<div><font face="Calibri, sans-serif" size="2"> </font></div>
<div>My script:</div>
<div>*********************************************************************************</div>
<div>Custom Condition:</div>
<div>-----------------------------------------------------------------------------------------------------</div>
<div>return 0 unless $self->TransactionObj->Type eq "Status";</div>
<div>return 0 unless $self->TransactionObj->NewValue eq "resolved";</div>
<div>return 1;</div>
<div><font face="Calibri, sans-serif" size="2"> </font></div>
<div>Custom Action Preperation Code:</div>
<div>------------------------------------------------------------------------------------------------------</div>
<div>require MIME::Entity;</div>
<div> </div>
<div>my $trans = $self->TransactionObj;</div>
<div>my $tkt = $self->TicketObj;</div>
<div> </div>
<div> </div>
<div>my $requestors = [ $tkt->Requestors->MemberEmailAddresses ];</div>
<div> </div>
<div>my $cont = $tkt->Comment->MIMEObj; ****this line don't work****</div>
<div>my $line = $tkt->Subject;</div>
<div> </div>
<div>my $new_tkt = RT::Ticket->new($RT::SystemUser);</div>
<div>my ($id, $msg) = $new_tkt->Create(</div>
<div> Queue => "RT-Test2_IdeeManag",</div>
<div> Subject => $line,</div>
<div> Status => 'open',</div>
<div> Requestor => 'xxx@mydomain.ch',</div>
<div> DependedOnBy => $tkt->Id,</div>
<div> MIMEObj => MIME::Entity->build(</div>
<div> Type => 'text/plain',</div>
<div> Data => $cont)</div>
<div> </div>
<div>);</div>
<div> </div>
<div>return 1;</div>
<div>********************************************************************************</div>
<div><font face="Calibri, sans-serif" size="2"> </font></div>
</font>
</body>
</html>