diff options
| -rw-r--r-- | Bugzilla/Migrate/Flyspray.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Bugzilla/Migrate/Flyspray.pm b/Bugzilla/Migrate/Flyspray.pm index 3b7d51a1a..faf8fa596 100644 --- a/Bugzilla/Migrate/Flyspray.pm +++ b/Bugzilla/Migrate/Flyspray.pm @@ -485,6 +485,7 @@ sub _read_bugs { sub _get_username { my ($self, $userid) = @_; my $email = $self->{map_user_id_to_email}->{$userid // -1} // $self->{map_user_id_to_email}->{-1}; + $self->{email_to_keep}->{$email} = 1; return $email; } @@ -499,6 +500,13 @@ sub translate_bug { return wantarray ? ($bug, $other_fields) : $bug; } +sub after_read { + my ($self) = @_; + + # only migrate users that have comments/attachments/are used somewhere + $self->{users} = [grep { defined $self->{email_to_keep}->{$_->{login_name}}} @{$self->{users}}]; +} + sub after_insert { my ($self) = @_; |