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