<% $RT::rtname %> - Hot Projects <% $RT::WebBaseURL %> <% $RT::Organization %> % my $count; % while (my $QueueObj = $Queues->Next) { % next unless $QueueObj->Attribute('Download'); <% $QueueObj->Name %> <% $RT::WebBaseURL %>/Foundry/Project/Download/?Queue=<% $QueueObj->Id %> % last if ++$count == $Limit; % } % $m->abort; <%INIT> $r->content_type('text/xml'); my $Queues = RT::Queues->new($RT::SystemUser); $Queues->LimitToEnabled; $Queues->OrderByAttribute( NAME => 'Download', ORDER => 'DESC', NUMERIC => 1 ); <%ARGS> $Limit => 3