Bug fix : use delete_field/insert_grouped_field rather than replace_with

replace_with maight have unexpected behaviour.
Has to test merge_authority.pl

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 011bcf1..427fdb6 100644 (file)
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -1226,7 +1226,8 @@ sub merge {
                     foreach my $subfield (@record_to) {
                         $field_to->add_subfields($subfield->[0] =>$subfield->[1]);
                     }
-                    $field->replace_with($field_to);            
+                    $marcrecord->delete_field($field);
+                    $marcrecord->insert_grouped_field($field_to);            
                     $update=1;
                 }
             }#for each tag