r16025 - 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:22:23 UTC 2008
Author: tincho-guest
Date: Sat Mar 1 09:22:22 2008
New Revision: 16025
URL: http://svn.debian.org/wsvn/?sc=1&rev=16025
Log:
Make the packages dissapear from the page if their only problem was the ignored bug
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=16025&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Sat Mar 1 09:22:22 2008
@@ -46,13 +46,6 @@
my( @no_prob, @for_upload, @for_upgrade, @weird, @waiting, @wip, @with_bugs,
@tagged, @all );
-unless($cgi->param("show_all"))
-{
- foreach(keys %$cls)
- {
- delete $cls->{$_} unless(%{$cls->{$_}{hilight}});
- }
-}
my %ignore = map({ $_ => 1 } $cgi->param("ignore_keywords"));
my %keywords = ();
foreach my $p (values %$cls) {
@@ -61,7 +54,17 @@
delete $p->{bts}{$bug} if(grep({ $ignore{$_} }
@{$p->{bts}{$bug}{keywordsA}}));
}
- delete $p->{status}{has_bugs} unless(%{$p->{bts}});
+ unless(%{$p->{bts}}) {
+ delete $p->{status}{has_bugs};
+ delete $p->{hilight}{bts};
+ }
+}
+unless($cgi->param("show_all"))
+{
+ foreach(keys %$cls)
+ {
+ delete $cls->{$_} unless(%{$cls->{$_}{hilight}});
+ }
}
foreach my $pkg (sort keys %$cls)
Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=16025&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Sat Mar 1 09:22:22 2008
@@ -295,6 +295,7 @@
[% CGI.scrolling_list(
"-name" => 'ignore_keywords',
"-values" => keywords,
+ "-size" => 5,
"-labels" => { '' => '--none--' }
) %]</p>
<p>[% CGI.submit({ Label => 'Reload' }) %]</p>
More information about the Pkg-perl-cvs-commits
mailing list