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>
This commit is contained in:
Henri-Damien LAURENT 2008-08-09 10:53:14 -05:00 committed by Joshua Ferraro
parent ca8d24546e
commit efc64f4424
1 changed files with 2 additions and 1 deletions

View File

@ -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