& /Admin/Elements/Header, title => loc("Modify Custom Field [_1]", $CustomFieldObj->id)&> <& /Admin/Elements/QueueTabs, id => $Queue &> <& /Elements/ListActions, actions => \@results &> <& /Elements/TitleBoxStart, title => $title &>
<%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; } %INIT> <%ARGS> $Queue => undef $CustomField => undef $Type => undef $SortOrder => undef $Description => undef $Name => undef %ARGS>