skip duplicate bugs in get_status_and_filter

diff --git a/Debbugs/CGI/Pkgreport.pm b/Debbugs/CGI/Pkgreport.pm
index be3455540d33b9e6129a9cf2674bf5946f96f414..294b73863b2950d1d0797bd3961eda5af7816f4e 100644 (file)
--- a/Debbugs/CGI/Pkgreport.pm
+++ b/Debbugs/CGI/Pkgreport.pm
@@ -313,6 +313,7 @@ sub get_status_and_filter {
      }
 
     foreach my $bug (@{$param{bugs}}) {
+        next if exists $statuses{$bug};
         my $status = get_bug_status(bug=>$bug,
                                     (exists $param{dist}?(dist => $param{dist}):()),
                                     bugusertags => $param{bugusertags},

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index d83f93c113410bee5ea7e8b655fa0181feaa4f46..859c8edd4226d7a3e1c4acf0abf5e2e4edc42dcb 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -424,11 +424,6 @@ determine_ordering(cats => \%cats,
                   order => \@order,
                  );
 
-# strip out duplicate bugs
-my %bugs;
-@bugs{@bugs} = @bugs;
-@bugs = keys %bugs;
-
 my $result = pkg_htmlizebugs(bugs => \@bugs,
                              bug_status => $bug_status,
                              names => \@names,