only include users which have bugs

diff --git a/Debbugs/Bug/Tag.pm b/Debbugs/Bug/Tag.pm
index b4284e71baf916c462c48599f530c4d59abc1da6..06dfb3f55132254b16cbc0a4d2a9b532bbd5720a 100644 (file)
--- 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 3c4cf6a02da445d3a33d4c764e0847409b981cac..50a09657233ae06e9951d4e7003559b66b445df5 100644 (file)
--- 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 2c461c93cb5d126eeb382f381088576cc7452e2b..f1d6cecead4969782bc4c931606e4d7d6a30d402 100755 (executable)
--- 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();