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

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 = "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 = 'Created CustomField ' . $CustomFieldObj->Name(); } else { $CustomFieldObj->Load($CustomField) || Abort('No CustomField'); $title = 'Editing CustomField ' . $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