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