<%ARGS>
$q => 'rt3'
<%INIT>
my $user = new RT::CurrentUser('guest');
my $queue = new RT::Queue($user);
$queue->Load($q);
Abort("Queue not found") if (!$queue->Id);
my $severity_sel= RT::CustomField->new($user);
$severity_sel->LoadByNameAndQueue(Name =>'Severity', Queue => $queue->Id);
my $milestones_sel= RT::CustomField->new($user);
$milestones_sel->LoadByNameAndQueue(Name =>'Milestone', Queue => $queue->Id);
my $milestones = $milestones_sel->Values;
$milestones->OrderBy (FIELD => 'Name', ORDER => 'ASC', ALIAS => 'main');
Buglist
Current <%$q%> Milestones and Bugs
<%PERL>
while (my $milestone = $milestones->Next()) {
my $tickets = new RT::Tickets($user);
$tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
$tickets->LimitStatus(VALUE => 'open');
$tickets->LimitStatus(VALUE => 'new');
$tickets->LimitCustomField(VALUE => $milestone->Name, CUSTOMFIELD => $milestones_sel->id);
if ($tickets->Count) {
<%$tickets->Count()%> items todo for release: <%$milestone->Name()%>