@@ -, +, @@ --- C4/AuthoritiesMarc.pm | 2 +- misc/migration_tools/dedup_authorities.pl | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -1496,7 +1496,7 @@ sub merge { push @editedbiblios, $biblionumber; } }#foreach $marc - + DelAuthority($mergefrom) if ($mergefrom != $mergeto); return @editedbiblios; } --- a/misc/migration_tools/dedup_authorities.pl +++ a/misc/migration_tools/dedup_authorities.pl @@ -143,10 +143,10 @@ for my $authtypecode (@authtypecodes) { ($verbose >= 2) and logger("Building query..."); my $query = _build_query( $authrecord, $attempt ); ($verbose >= 2) and logger("Building query done."); - $debug and $query and warn $query; + ($verbose >= 2) and logger ($query); # This prevent too general queries to be executed # TODO: This should allow more than these 3 indexes - next unless $query =~ /(he|he-main|ident)(,\S*)*(=|:)/; + next unless $query =~ /(ppn|he|he-main|ident)(,\S*)*(=|:)/; ($verbose >= 2) and logger("Searching..."); my ($error, $results) = SimpleSearch($query, undef, undef, ["authorityserver"]); --