r19372 - in /scripts/qa: DebianQA/Classification.pm qareport.cgi templates/by_category

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sun May 4 15:03:50 UTC 2008


Author: dmn
Date: Sun May  4 15:03:49 2008
New Revision: 19372

URL: http://svn.debian.org/wsvn/?sc=1&rev=19372
Log:
new classification category: RC-buggy. Should help prioritize bug-fixers' work

Modified:
    scripts/qa/DebianQA/Classification.pm
    scripts/qa/qareport.cgi
    scripts/qa/templates/by_category

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=19372&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Sun May  4 15:03:49 2008
@@ -153,6 +153,13 @@
         if($data->{bts}{$pkg} and %{$data->{bts}{$pkg}}) {
             $status{has_bugs} = 1;
             foreach(keys %{$data->{bts}{$pkg}}) {
+                # enumerating non-RC severities allows automatic support for
+                # new RC severities
+                $status{has_rc_bugs} = 1
+                unless $data->{bts}{$pkg}{$_}{severity} =~ m/
+                    minor|wishlist|normal|important
+                /x;
+
                 next unless($data->{svn}{$pkg}{closes}{$_});
                 next if($data->{svn}{$pkg}{closes}{$_} eq "released" and
                     not $status{needs_upload});

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=19372&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Sun May  4 15:03:49 2008
@@ -70,7 +70,7 @@
 my $cls = classify(@pkglist);
 
 my( @no_prob, @for_upload, @for_upgrade, @upgrade_wip, @weird, @waiting,
-    @wip, @with_bugs, @tagged, @all );
+    @wip, @with_rc_bugs, @with_bugs, @tagged, @all );
 
 my %ignore = map({ $_ => 1 } @{$params{ignore_keywords}});
 my %keywords = ();
@@ -112,6 +112,7 @@
         $status->{upstream_ancient});
     $dest ||= \@wip if $status->{watch_error};
     $dest ||= \@waiting if $status->{archive_waiting};
+    $dest ||= \@with_rc_bugs if $status->{has_rc_bugs};
     $dest ||= \@with_bugs if $status->{has_bugs};
     $dest ||= \@wip if $status->{archive_foreign};
     # $dest ||= \@wip if $status->{svn_foreign};

Modified: scripts/qa/templates/by_category
URL: http://svn.debian.org/wsvn/scripts/qa/templates/by_category?rev=19372&op=diff
==============================================================================
--- scripts/qa/templates/by_category (original)
+++ scripts/qa/templates/by_category Sun May  4 15:03:49 2008
@@ -254,6 +254,7 @@
     [% INCLUDE section data=data list=waiting name="waiting" title="NEW and incoming" %]
     [% INCLUDE section data=data list=weird name="weird" title="Packages with strange versions in the repository" %]
     [% INCLUDE section data=data list=wip name="wip" title="Work in progress" %]
+    [% INCLUDE section data=data list=with_rc_bugs name="with_rc_bugs" title="With RC bugs" %]
     [% INCLUDE section data=data list=with_bugs name="with_bugs" title="With bugs" %]
     [% INCLUDE section data=data list=all name='unclassified' title='Unclassified' %]
 </table>




More information about the Pkg-perl-cvs-commits mailing list