& 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>