| 
% 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> |