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