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;
}
}
return map {@{$self->{"bug_tags"}{$_}//[]}} @_;
}
+sub has_bug_tags {
+ my $self = shift;
+ return keys %{$self->{bug_tags}} > 0;
+}
+
sub write {
my $self = shift;
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();