r16024 - in /scripts/qa: qareport.cgi templates/by_category
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Mar 1 09:14:06 UTC 2008
Author: tincho-guest
Date: Sat Mar 1 09:14:05 2008
New Revision: 16024
URL: http://svn.debian.org/wsvn/?sc=1&rev=16024
Log:
Allow user to ignore certaing bug keywords
Modified:
scripts/qa/qareport.cgi
scripts/qa/templates/by_category
Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=16024&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Sat Mar 1 09:14:05 2008
@@ -52,6 +52,16 @@
{
delete $cls->{$_} unless(%{$cls->{$_}{hilight}});
}
+}
+my %ignore = map({ $_ => 1 } $cgi->param("ignore_keywords"));
+my %keywords = ();
+foreach my $p (values %$cls) {
+ foreach my $bug (keys %{$p->{bts}}) {
+ $keywords{$_} = 1 foreach(@{$p->{bts}{$bug}{keywordsA}});
+ delete $p->{bts}{$bug} if(grep({ $ignore{$_} }
+ @{$p->{bts}{$bug}{keywordsA}}));
+ }
+ delete $p->{status}{has_bugs} unless(%{$p->{bts}});
}
foreach my $pkg (sort keys %$cls)
@@ -155,6 +165,7 @@
localtime($last_modified)),
now => POSIX::strftime("%a, %d %b %Y %T %Z",
localtime(time)),
+ keywords => [ "", sort keys %keywords ],
},
) || die $tt->error;
Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=16024&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Sat Mar 1 09:14:05 2008
@@ -290,7 +290,13 @@
"3600" => "1 hour",
"7200" => "2 hours"
}
-}).join("\n") %]</p>
+ }).join("\n") %]</p>
+<p>Bug keywords to ignore: <br/>
+ [% CGI.scrolling_list(
+ "-name" => 'ignore_keywords',
+ "-values" => keywords,
+ "-labels" => { '' => '--none--' }
+ ) %]</p>
<p>[% CGI.submit({ Label => 'Reload' }) %]</p>
[% CGI.end_form.join("\n") %]
</div>
More information about the Pkg-perl-cvs-commits
mailing list