I think I've finished it, only have some issues with the $RT::Logger->error thing. The scrip won't launch when I have that part enabled, when disabled it runs just fine O_o<div><br></div><div><div><div><font class="Apple-style-span" face="'courier new', monospace">package RT::Action::TEST;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">use base 'RT::Action';</font></div><div><font class="Apple-style-span" face="'courier new', monospace">use strict;</font></div><div>
<font class="Apple-style-span" face="'courier new', monospace">use warnings;</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">sub Prepare {</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        return 1;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">}</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace">sub Commit {</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        my $self = shift;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        my $tstatus = $self->TicketObj->Status;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        if ($tstatus eq 'new') { my ($val, $msg) = $self->TicketObj->AddCustomFieldValue(Field => 'Teller New', Value => $self->TicketObj->FirstCustomFieldValue( 'Teller New' ) + 5, RecordTransaction => 0 ); }</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        if ($tstatus eq 'open') { my ($val, $msg) = $self->TicketObj->AddCustomFieldValue(Field => 'Teller New', Value => $self->TicketObj->FirstCustomFieldValue( 'Teller New' ) + 5, RecordTransaction => 0 ); }</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        # --- Insert more if statements to match more ticket statusses. ---</font></div><div><font class="Apple-style-span" face="'courier new', monospace"><br>
</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        # --- the part below doesn't seem to work, no idea why. ---</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        #unless ( $val ) {</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        #       $RT::Logger->error("Coudln't change Custom Field: $msg");</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        #       return 0;</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace">        #}</font></div><div><font class="Apple-style-span" face="'courier new', monospace">        return 1;</font></div><div><font class="Apple-style-span" face="'courier new', monospace">}</font></div>
<div><font class="Apple-style-span" face="'courier new', monospace"><br></font></div><div><font class="Apple-style-span" face="'courier new', monospace">1;</font></div></div><div><br clear="all">-- Bart<br>

<br><br><div class="gmail_quote">Op 8 december 2011 12:31 schreef Bart <span dir="ltr"><<a href="mailto:bart@pleh.info">bart@pleh.info</a>></span> het volgende:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Ok,<div><br></div><div>Will do a little more adjusting, thanks for the help.</div><div><br clear="all">-- Bart<br>
<br><br><div class="gmail_quote">Op 8 december 2011 12:28 schreef Ruslan Zakirov <span dir="ltr"><<a href="mailto:ruz@bestpractical.com" target="_blank">ruz@bestpractical.com</a>></span> het volgende:<div><div class="h5">
<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>On Thu, Dec 8, 2011 at 14:46, Bart <<a href="mailto:bart@pleh.info" target="_blank">bart@pleh.info</a>> wrote:<br>
> sub Prepare  {<br>
>     my $self = shift;<br>
>     my $new_value = $self->TicketObj-> FirstCustomFieldValue( 'Teller New' )<br>
> + 5;<br>
>     $self->TicketObj->AddCustomFieldValue(Field => 'Teller New', Value =><br>
> $new_value, RecordTransaction => 0 );<br>
>     return 1;<br>
> }<br>
<br>
</div>You should move all this code into Commit. Don't change objects during prepare.<br>
<span><font color="#888888"><br>
--<br>
Best regards, Ruslan.<br>
</font></span></blockquote></div></div></div><br></div>
</blockquote></div><br></div></div>