[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 0f5115a8bca387c4c32bfe1b9471cb8039266027..f8b3242447d233b61d5337b1dbc131f2788b5843 100755 (executable)
--- 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;