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:
parent
ca8d24546e
commit
efc64f4424
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue