<& /RTFM/Elements/Tabs, Title => loc('Create a new article') &>
<&|/l&>Name
<&|/l&>Summary
<&|/l&>Class <%$ClassObj->Name%>
% while (my $CustomField = $CustomFields->Next) { <%$CustomField->Name%> - <%$CustomField->Type%>
% if ($CustomField->Type eq 'FreeformSingle') { % } elsif ($CustomField->Type eq 'FreeformMultiple') { % } % elsif ($CustomField->Type eq 'TextSingle') { % } % elsif ($CustomField->Type =~ /^Select/) { % my $CustomFieldValues = $CustomField->ValuesObj(); % } % }

<&|/l&>Relationships

<&|/l&>Enter Articles or URIs to link Articles to. Seperate multiple entries with spaces.
<&|/l&>Refers to:
<&|/l&>Referred to by:
<%ARGS> $ArticleObj => undef <& /Elements/Submit, Label => loc('Create'), color => "#993333" &>
<%INIT> my %cfcontent; foreach my $arg (keys %ARGS) { if ($arg =~ /^Transaction-(\d+)$/) { my $trans = RT::Transaction->new($session{'CurrentUser'}); $trans->Load($1); $cfcontent{$ARGS{$arg}} = $trans->Content; } } my $ClassObj = RT::FM::Class->new($session{'CurrentUser'}); $ClassObj->Load($Class); unless ($ClassObj->Id) { $m->comp("/RTFM/Elements/Error", Why => "'%1' isn't a valid class identifier", $Class); } my $CustomFields = $ClassObj->CustomFields(); <%ARGS> $Class=>undef