From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 28 May 2019 00:10:34 +0000 (-0700)
Subject: only include users which have bugs
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=1a23ad80738aae9eae58f9ecfbab9f52bd6c74a7;ds=sidebyside

only include users which have bugs
---

diff --git a/Debbugs/Bug/Tag.pm b/Debbugs/Bug/Tag.pm
index b4284e7..06dfb3f 100644
--- a/Debbugs/Bug/Tag.pm
+++ b/Debbugs/Bug/Tag.pm
@@ -109,8 +109,9 @@ sub _build_usertags {
     my $self = shift;
     local $_;
     my $t = {};
+    my $id = $self->bug->id;
     for my $user (@{$self->users}) {
-        for my $tag ($user->tags_on_bug($self->bug->id)) {
+        for my $tag ($user->tags_on_bug($id)) {
             $t->{$tag} = $user->email;
         }
     }
diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 3c4cf6a..50a0965 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -257,6 +257,11 @@ sub tags_on_bug {
     return map {@{$self->{"bug_tags"}{$_}//[]}} @_;
 }
 
+sub has_bug_tags {
+    my $self = shift;
+    return keys %{$self->{bug_tags}} > 0;
+}
+
 sub write {
     my $self = shift;
 
diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 2c461c9..f1d6cec 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -474,7 +474,9 @@ my %bugs;
 my $bugs = Debbugs::Collection::Bug->
     new(bugs => \@bugs,
 	@schema_arg,
-	users => [map {Debbugs::User->new($_)} @users],
+	users => [map {my $u = Debbugs::User->new($_);
+		       $u->has_bug_tags()?($u):()
+		   } @users],
        );
 
 $bugs->load_related_packages_and_versions();