<html>
<head>
<link rel="stylesheet" href="/NoAuth/webrt.css" type="text/css">
<title>Buglist</title>
</head>
<body>
<h1> Current <%$q%> Milestones and Bugs</h1>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=3 border=0>
<%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);
#$tickets->OrderBy(FIELD => 'id', ALIAS => 'main', ORDER => 'ASC');
if ($tickets->Count) {
</%PERL>
<TR>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF" size=+1>
<b><%$tickets->Count()%> items todo for release: <%$milestone->Name()%><b>
</FONT>
</TD>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF">
</TD></TR>
%while (my $ticket = $tickets->Next) {
% $i++;
% my $severity = $ticket->CustomFieldValues($severity_sel->id)->First;
<TR
% if ($i%2) {
BGCOLOR="#eeeeee"
%}
>
<TD>
<A href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$ticket->Id%>"><%$ticket->Id%>
<%$ticket->Subject%></A>
</TD>
<TD>
<%$severity&&$severity->Content%>
</TD>
</TR>
% }
%}
% }
<%PERL>
my $tickets = new RT::Tickets($user);
$tickets->LimitQueue(VALUE => $queue->id );
$tickets->LimitStatus(VALUE => 'open');
$tickets->LimitStatus(VALUE => 'new');
$tickets->LimitCustomField( VALUE => 'NULL', OPERATOR => 'IS', QUOTEVALUE => 0, CUSTOMFIELD => $milestones_sel->id);
#$tickets->OrderBy(FIELD => 'id', ALIAS => 'main', ORDER => 'ASC');
</%PERL>
% if ($tickets->Count) {
<TR>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF" size=+1>
<b><%$tickets->Count()%> items not filed<b>
</FONT>
</TD>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF">
</TD></TR>
%while (my $ticket = $tickets->Next) {
% $i++;
% my $severity = $ticket->CustomFieldValues($severity_sel->id)->First;
<TR
% if ($i%2) {
BGCOLOR="#eeeeee"
%}
>
<TD>
<A
href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$ticket->Id%>"><%$ticket->Id%>
<%$ticket->Subject%></A>
</TD>
<TD>
<%$severity&&$severity->Content%>
</TD>
</TR>
% }
% }
</TABLE>
</body>
</html>
<%INIT>
my $user = new RT::CurrentUser('guest');
my $queue = new RT::Queue($user);
my $i;
$queue->Load($q);
unless ($queue->Id) {
Abort("Queue not found");
}
my $milestones_sel= RT::CustomField->new($user);
my $severity_sel= RT::CustomField->new($user);
$severity_sel->LoadByNameAndQueue(Name =>'Severity', Queue => $queue->Id);
$milestones_sel->LoadByNameAndQueue(Name =>'Milestone', Queue => $queue->Id);
my $milestones = $milestones_sel->Values;
$milestones->OrderBy (FIELD => 'Name', ORDER => 'ASC', ALIAS => 'main');
</%INIT>
<%ARGS>
$q => 'RT Bugs'
</%ARGS>