<& /Admin/Elements/Header, title => loc("Modify Custom Field [_1]", $CustomFieldObj->id)&> <& /Admin/Elements/QueueTabs, id => $Queue &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>
<&|/l&>Name:
<&|/l&>Description:
<&|/l&>Type: <& /Admin/Elements/SelectCustomFieldType, Name => "Type", Default => $CustomFieldObj->Type &>
% if ($CustomFieldObj->Id) {

<&|/l&>Values


<& /Admin/Elements/EditCustomFieldValues, CustomField => $CustomFieldObj &> <& /Admin/Elements/AddCustomFieldValue, CustomField => $CustomFieldObj &> % } <& /Elements/TitleBoxEnd&> <&/Elements/Submit&>
<%INIT> my $CustomFieldObj = RT::CustomField->new($session{'CurrentUser'}); my ($title, @results, $id); if (! $CustomField ) { $title = loc("Create a CustomField"); $id = 'new'; } else { if ($CustomField eq 'new') { my ($val, $msg) = $CustomFieldObj->Create(Queue => $Queue, Name => $Name, Type => $Type, Description => $Description, SortOrder => $SortOrder); Abort("Could not create CustomField: $msg") unless ($val); push @results, $msg; $title = loc('Created CustomField [_1]', $CustomFieldObj->Name()); } else { $CustomFieldObj->Load($CustomField) || Abort('No CustomField'); $title = loc('Editing CustomField [_1]', $CustomFieldObj->Name()); my @aresults = ProcessCustomFieldUpdates ( CustomFieldObj => $CustomFieldObj, ARGSRef => \%ARGS ); push @results, @aresults; } $id = $CustomFieldObj->id; } <%ARGS> $Queue => undef $CustomField => undef $Type => undef $SortOrder => undef $Description => undef $Name => undef