From: cjwatson <>
Date: Wed, 11 May 2005 17:03:08 +0000 (-0800)
Subject: [project @ 2005-05-11 10:03:08 by cjwatson]
X-Git-Tag: release/2.6.0~724
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=19534feec4f67096e262c9f8187a1d574d63158a;p=debbugs.git

[project @ 2005-05-11 10:03:08 by cjwatson]
Fix submitter search in the presence of multiple submitters.
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 0f5115a8..f8b32424 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -201,11 +201,12 @@ if (defined $pkg) {
   $title = "submitter $submitter";
   $title .= " in $dist" if defined $dist;
   my @submitters = split /,/, $submitter;
-  @bugs = @{getbugs(sub {my %d=@_; my $se; 
-		       ($se = $d{"submitter"} || "") =~ s/\s*\(.*\)\s*//;
-		       $se = $1 if ($se =~ m/<(.*)>/);
-		       return 1 if grep($se eq $_, @submitters);
-		     }, 'submitter-email', @submitters)};
+  @bugs = @{getbugs(sub {my %d=@_;
+                         my @se = getparsedaddrs($d{"submitter"} || "");
+                         foreach my $try (@submitters) {
+                           return 1 if grep { $_->address eq $try } @se;
+                         }
+                        }, 'submitter-email', @submitters)};
 } elsif (defined($severity) && defined($status)) {
   $title = "$status $severity bugs";
   $title .= " in $dist" if defined $dist;