From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 1 Feb 2010 17:34:31 +0000 (-0800)
Subject: Fix affects for source packages (closes: #563470). Thanks to Charles
X-Git-Tag: release/2.6.0~428^2~6
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=63490635cc6313930c44c86d2f3b53031c8c4d23

Fix affects for source packages (closes: #563470). Thanks to Charles
Plessy.
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 2efc87c..3fc500b 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -363,10 +363,11 @@ my $title = $gBugs.' '.join(' and ', map {/ or /?"($_)":$_} @title);
 # shove in bugs which affect this package if there is a package or a
 # source given (by default), but no affects options given
 if (not exists $param{affects} and not exists $param{noaffects} and
-    (exists $param{source} or
+    (exists $param{src} or
      exists $param{package})) {
-    push @bugs, get_bugs((map {exists $param{$_}?($_ =~ /^(?:package|source)$/?'affects':$_,
-						  ($_ eq 'source'?'src:'.$param{$_}:$param{$_})):()}
+    push @bugs, get_bugs((map {my $key = $_;
+			       exists $param{$key}?($key =~ /^(?:package|src)$/?'affects':$key,
+						  ($key eq 'src'?[map {"src:$_"}make_list($param{$key})]:$param{$_})):()}
 			  grep {$_ ne 'newest'}
 			  keys %package_search_keys, 'archive'),
 			 usertags => \%ut,
diff --git a/debian/changelog b/debian/changelog
index 56ac6cc..d19a554 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -12,6 +12,8 @@ debbugs (2.4.2~exp1) experimental; urgency=low
     (closes: #566068). Thanks to Mike Hommey.
   * Fix links to PTS pages for src packages (closes: #566089). Thanks to
     Sandro Tosi.
+  * Fix affects for source packages (closes: #563470). Thanks to Charles
+    Plessy.
 
  -- Don Armstrong <don@debian.org>  Wed, 26 Aug 2009 21:32:53 -0700