From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 20 Jun 2007 01:05:48 +0000 (+0100)
Subject:  * Handle bugs assigned to multiple packages correctly
X-Git-Tag: release/2.6.0~542^2~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=041935b23ab6a2c3eaa46a1c5a5cf53e2b1b7061;p=debbugs.git

 * Handle bugs assigned to multiple packages correctly
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 74946938..6911c32a 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -908,23 +908,27 @@ sub bug_presence {
 	  my %sourceversions;
 	  if (defined $param{version}) {
 	       foreach my $arch (make_list($param{arch})) {
-		    my @temp = makesourceversions($status{package},
-						  $arch,
-						  make_list($param{version})
-						 );
-		    @sourceversions{@temp} = (1) x @temp;
+		    for my $package (split /\s*,\s*/, $status{package}) {
+			 my @temp = makesourceversions($package,
+						       $arch,
+						       make_list($param{version})
+						      );
+			 @sourceversions{@temp} = (1) x @temp;
+		    }
 	       }
 	  } elsif (defined $param{dist}) {
 	       foreach my $arch (make_list($param{arch})) {
 		    my @versions;
-		    foreach my $dist (make_list($param{dist})) {
-			 push @versions, getversions($status{package}, $dist, $arch);
+		    for my $package (split /\s*,\s*/, $status{package}) {
+			 foreach my $dist (make_list($param{dist})) {
+			      push @versions, getversions($package, $dist, $arch);
+			 }
+			 my @temp = makesourceversions($package,
+						       $arch,
+						       @versions
+						      );
+			 @sourceversions{@temp} = (1) x @temp;
 		    }
-		    my @temp = makesourceversions($status{package},
-						  $arch,
-						  @versions
-						 );
-		    @sourceversions{@temp} = (1) x @temp;
 	       }
 	  }