From efc64f44241efcc8a02ee0a8549a5346cdd026b0 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Sat, 9 Aug 2008 10:53:14 -0500
Subject: [PATCH] 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>
---
 C4/AuthoritiesMarc.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 011bcf1ab8..427fdb63ba 100644
--- 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
-- 
2.39.5