% my $List = [];
% while (my $Ticket = $Tickets->Next) {
% push @$List, $Ticket if $Ticket->CustomFieldValue('TopicSuggestion');
% }
<& /Edit/Elements/SortedList,
%ARGS,
Data => [
[ '20%', loc('Requestor'),
sub { $_[0]->FirstRequestor->Name } ],
[ '80%', loc('Topic Suggestion'),
sub { $_[0]->CustomFieldValue('TopicSuggestion') } ],
],
Link => sub {},
Size => 14,
List => $List,
Delete => 1,
&>
<& /Foundry/Elements/Footer &>
<%INIT>
my $Tickets = RT::Tickets->new($session{CurrentUser});
$Tickets->LimitQueue( FIELD => 'Name', VALUE => 'NewProject');
%INIT>
|