<%args> $id => undef <%init> my $ticket = RT::Ticket->new($session{'CurrentUser'}); $ticket->Load($id); my $whiteboard = $ticket->QueueObj->CustomField('Whiteboard'); my $prefix = "Object-RT::Ticket-".$ticket->Id."-CustomField-"; my $Values = $ticket->CustomFieldValues($whiteboard->Id); my $comp = "/Elements/EditCustomField".$whiteboard->Type;
<&|/l&>Edit this ticket's whiteboard below:
<& /Elements/EditCustomField, Object => $ticket, CustomField => $whiteboard, NamePrefix => $prefix, Cols=> 120, Rows=> 8 &> <& /Elements/Submit &>
%$m->abort();