Commit f180b553 authored by Alex Vandiver's avatar Alex Vandiver
Browse files

Only unmerge users made by the LDAP import (the system user)

This allows users to hand-merge additional addresses
parent aad6c1c7
......@@ -90,6 +90,8 @@ sub _import_user {
for my $id (grep {not $merged{$_}} @{$user->GetMergedUsers->Content}) {
my $alt = RT::User->new( RT->SystemUser );
$alt->LoadOriginal( id => $id );
my ($effective_id) = $alt->Attributes->Named("EffectiveId");
next unless $effective_id->Creator == RT->SystemUser->id;
$alt->UnMerge;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment