<%args> $id => undef <%init> my $ticket = RT::Ticket->new($session{'CurrentUser'}); $ticket->Load($id); ProcessObjectCustomFieldUpdates(Object => $ticket, ARGSRef => \%ARGS); my $whiteboard = $ticket->QueueObj->CustomField('Whiteboard'); my $Values = $ticket->CustomFieldValues($whiteboard->Id); my $comp = "/Elements/ShowCustomField".$whiteboard->Type; % while (my $Value = $Values->Next()) { % if ($m->comp_exists($comp)) { <& $comp, Object => $Value &> % } else { <% $Value->Content %> % } % } % if ($whiteboard->CurrentUserHasRight('ModifyCustomField')) {
Edit whiteboard... %} %$m->abort();