@@ -, +, @@ authorities remove the 150$v subfield add a value in the 150$z sufield The $v subfield is still there (merge failed) The $z subfield was added (merge worked) remove the 150$z subfield add a value in the 150$x sufield The deleted subfields are gone. --- C4/AuthoritiesMarc.pm | 5 ----- 1 file changed, 5 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -1530,11 +1530,6 @@ sub merge { $exclude.= $subfield->[0]; } $exclude='['.$exclude.']'; -# add subfields in $field not included in @record_to - my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); - foreach my $subfield (@restore) { - $field_to->add_subfields($subfield->[0] =>$subfield->[1]); - } $marcrecord->delete_field($field); $marcrecord->insert_grouped_field($field_to); $update=1; --