* Colin Watson <cjwatson@debian.org> [2003-08-26 01:04:46 +0100]:
> On Mon, Aug 25, 2003 at 09:09:16PM +0200, Martin Godisch wrote:
> > Package: qa.debian.org
> > Version: N/A; reported 2003-08-25
> > Severity: normal
> >
> > noffle has a "fixed-upstream" bug (#202105). This bug is shown in column
> > "F&P" at http://qa.debian.org/developer.php?package=noffle. Clicking on
> > this entry doesn't show the bug, it shows up in "M&W" instead.
>
> It has the same bug that debbugs' CGIs themselves had until recently,
> namely that it looks for /\bfixed\b/ rather than splitting the tags
> field on whitespace and looking for a 'fixed' member. Igor, here's an
> untested patch.
>
> Index: process-index.pl
> ===================================================================
> RCS file: /cvs/qa/data/ddpo/process-index.pl,v
> retrieving revision 1.2
> diff -p -u -r1.2 process-index.pl
> --- process-index.pl 11 Aug 2003 11:14:02 -0000 1.2
> +++ process-index.pl 26 Aug 2003 00:03:43 -0000
> @@ -68,7 +68,8 @@ while (defined($_=<BUGS>)) {
> #print "Package: $p, Bug Number: $b, nb_merge: $nb_merge\n";
> close STATUS;
> $/ = $save;
> - if ($tags =~ /\bpending\b/ or $tags =~ /\bfixed\b/ or $severity =~ /\bfixed\b/) {
> + my %tags = map { $_ => 1 } split ' ', $tags;
> + if ($tags{pending} or $tags{fixed} or $severity eq 'fixed') {
> $stats{$sources{$p}}{"fixed"}++;
> $stats_real{$sources{$p}}{"fixed"}++;
> $stats{$sources{$p}}{"fixed"}-=$nb_merge;
Great Colin, this works perfectly ;)
Thanks a lot
Cheers
--
Igor Genibel
http://www.answare.fr/ igor.genibel@eds.com
http://www.tuxfamily.org/ igor@tuxfamily.net
http://people.debian.org/~igenibel igenibel@debian.org
GPG: 1024D/9D735B4F: 4F61 8D8F 05AC 8D2C 5F92 9B99 C44B 0266 9D73 5B4F
Attachment:
pgphAyeHaqwg3.pgp
Description: PGP signature