& /Admin/Elements/Header, title => "Modify Custom Field ".$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 = "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; } %INIT> <%ARGS> $Queue => undef $CustomField => undef $Type => undef $SortOrder => undef $Description => undef $Name => undef %ARGS>