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