<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<style type="text/css" id="owaParaStyle" style="">
<!--
p
{margin-top:0;
margin-bottom:0}
-->
P {margin-top:0;margin-bottom:0;}</style>
</head>
<body dir="ltr" tabindex="0" style="" fpstyle="1" aria-label="Message body">
<div name="divtagdefaultwrapper" id="divtagdefaultwrapper" style="font-family: Calibri,Arial,Helvetica,sans-serif;font-size: 12pt;color: #000000;margin: 0;">
<font size="3">I've done some searching and perhaps my Google-fu is lacking, but I was wondering if there were any examples of updating tickets via RT::Client::REST::Ticket, aside from the information available on CPAN.
</font>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
What I'm specifically looking to do is be able to update a custom field and (optionally) add a comment to the case when a defect is updated in a separate system.</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
I've been able to add/change/delete attributes, but I where am running into problems is adding a comment without sending the email to the admin_cc list, unless I actually delete the admin_cc list before as I'm doing in the test/proof of concept snippet I've
copied below.</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<blockquote style="margin: 0px 0px 0px 40px; border: none; padding: 0px;">
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2">my @ids = qw/6119/;</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"><br>
</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2">my $comment = "This is a test from Perl";</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2">for my $id (@ids) {</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><br>
</div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> my $ticket = RT::Client::REST::Ticket->new(rt => $rt, id => $id);</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div>
<div><span style="font-family:'Lucida Console',Monaco,monospace; font-size:small"> my @admin_cc = $ticket->admin_cc();</span></div>
<div></div>
</div>
</div>
<div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<font face="Lucida Console, Monaco, monospace" size="2"><br>
</font></div>
<div><font face="Lucida Console, Monaco, monospace" size="2"> if((scalar @admin_cc) > 0) {</font></div>
<div><font face="Lucida Console, Monaco, monospace" size="2"> $ticket->delete_admin_cc(@admin_cc);</font></div>
<div><font face="Lucida Console, Monaco, monospace" size="2"> }</font></div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<span style="font-family: 'Lucida Console', Monaco, monospace; font-size: small;"> $ticket->comment(message=>$comment);</span></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> try {</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> $ticket->store;</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> } catch Exception::Class::Base with {</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> die "Unable to store ticket update", shift->message;</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2"> };</font></div>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<div><font face="Lucida Console, Monaco, monospace" size="2">}</font></div>
</div>
</blockquote>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
Thanks in advance,</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
<br>
</div>
<div style="color: rgb(0, 0, 0); font-family: Calibri, Arial, Helvetica, sans-serif; font-size: 12pt;">
Eli Boaz</div>
</div>
</body>
</html>