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

Plessy.

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 2efc87c8227f1595a23e0b39b9e7c32141da8a16..3fc500b355114472122bee11d936a0f60203b51f 100755 (executable)
--- 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 56ac6cc49fe2be51784b4b3722f305e20fb75f86..d19a5542c7f6bab14ec1f025efe6d7d0a59cb366 100644 (file)
--- 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