<% $RT::rtname %> - New Projects <% $RT::WebBaseURL %> <% $RT::Organization %> % my $count; % while (my $QueueObj = $Queues->Next) { <% $QueueObj->Name %> <% $RT::WebBaseURL %>/Foundry/Project/Download/?Queue=<% $QueueObj->Id %> % last if ++$count == 3; % } % $m->abort; <%INIT> $r->content_type('text/xml'); my $Queues = RT::Queues->new($RT::SystemUser); $Queues->UnLimit; $Queues->Limit( FIELD => 'Disabled', OPERATOR => '=', VALUE => '0'); $Queues->OrderBy( FIELD => 'Id', ORDER => 'DESC' );