<& Elements/Tabs &> <%$msg && '

'.$msg.'

'|n%> <%$content_msg && '

'.$content_msg.'

'|n%>
Category:
<%INIT> my ($msg, $val, $content_msg, $content_val); my $ticket = LoadTicket($id); my $cf = RT::CustomField->new($session{'CurrentUser'}); $cf->LoadByNameAndQueue(Queue => $ticket->QueueObj->id, Name => 'Category'); my $txn = $ticket->Transactions->First; my $attachment = $txn->Attachments->First; if ($ARGS{'Category'} && $ticket->FirstCustomFieldValue('Category') ne $ARGS{'Category'}) { ($val, $msg) = $ticket->AddCustomFieldValue(Field => $cf, Value => $ARGS{'Category'}); } if ($ARGS{'Content'} ) { # this is an egregious hack and should never exist. # We need an "Alter ticket content right" # it should be "permission denied, not 'immutable' ($content_val,$content_msg) = $attachment->_Set( Field =>'Content', Value => $ARGS{'Content'}); } <%ARGS> $id => undef