From 6e239e8dfe531886f73b1b91465eb4482dd82482 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 20 Jan 2017 13:51:29 +0100 Subject: [PATCH] Bug 17913: [Follow-up] Fix duplicate $9s after merging in loose mode Content-Type: text/plain; charset=utf-8 We need to add $9 to the skip_subfields hash too. Formerly, it was added to $exclude as well. Thanks, Julian, for catching this one. Signed-off-by: Marcel de Rooy --- C4/AuthoritiesMarc.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index e3f10f1..0c410a2 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1471,6 +1471,9 @@ sub merge { # We only need it in loose merge mode; replaces the former $exclude ? {} : { map { ( $_->[0], 1 ); } ( @record_from, @record_to ) }; + # And we need to add $9 in order not to duplicate + $skip_subfields->{9} = 1 if !$overwrite; + foreach my $marcrecord(@reccache){ my $update = 0; foreach my $tagfield (@$tags_using_authtype) { -- 2.1.4