From 19534feec4f67096e262c9f8187a1d574d63158a Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Wed, 11 May 2005 09:03:08 -0800
Subject: [PATCH] [project @ 2005-05-11 10:03:08 by cjwatson] Fix submitter
 search in the presence of multiple submitters.

---
 cgi/pkgreport.cgi | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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;
-- 
2.39.5