& Elements/Tabs &>
<%$msg && '
'.$msg.'
'|n%>
<%$content_msg && ''.$content_msg.'
'|n%>
<%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'});
}
%INIT>
<%ARGS>
$id => undef
%ARGS>