<html>
<head>
<link rel="stylesheet" href="/rt2/NoAuth/webrt.css" type="text/css">
<title>Buglist</title>
</head>
<body>
%if ($Release) {
<h1>Errata</h1>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=3 border=0>
<%PERL>
my $tickets = new RT::Tickets($user);
$tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');
$tickets->LimitKeyword(KEYWORD => $release->id,
KEYWORDSELECT => $releases_sel->id);
</%PERL>
% if ($tickets->Count) {
<TR>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF" size=+1>
<b><%$tickets->Count()%> known issues in <%$release->Name()%><b>
</FONT>
</TD>
<TD BGCOLOR=#336699><FONT COLOR="#FFFFFF">
</TD></TR>
%while (my $ticket = $tickets->Next) {
% $i++;
% my $severity = $ticket->KeywordsObj($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->KeywordObj->Name%>
</TD>
</TR>
% }
%}
<%PERL>
if ($Release eq 'unfiled') {
my $tickets = new RT::Tickets($user);
$tickets->LimitQueue(VALUE => $queue->id );
$tickets->LimitKeyword(KEYWORD =>'NULL', OPERATOR => 'IS', QUOTEVALUE => 0,
KEYWORDSELECT => $releases_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->KeywordsObj($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->KeywordObj->Name%>
</TD>
</TR>
% }
% }
% }
</TABLE>
% }
<hr>
<br>
<br>
%while ( my $rel = $releases->Next()) {
Show known issues with <a href="Errata.html?Release=<%$rel->Name%>"><%$rel->Name%></a></br>
% }
<hr>
<address><a href="mailto:jesse@desktop">jesse</a></address>
<!-- Created: Tue Jan 16 15:00:11 EST 2001 -->
<!-- hhmts start -->
Last modified: Tue Jan 16 15:12:27 EST 2001
<!-- hhmts end -->
</body>
</html>
<%INIT>
my $user = new RT::CurrentUser('guest');
my $queue = new RT::Queue($user);
my $i;
$queue->Load('RT Bugs');
my $severity_sel = $queue->KeywordSelect('Severity');
my $releases_sel = $queue->KeywordSelect('Broken in');
my $releases = $releases_sel->KeywordObj->Children;
$releases->OrderBy (FIELD => 'Name');
my $release = new RT::Keyword($RT::Nobody);
$release->LoadByPath("/RT/Version/".$Release);
</%INIT>
<%ARGS>
$Release => undef
</%ARGS>