Lines 1494-1501
sub merge {
Link Here
|
1494 |
foreach my $subfield (@restore) { |
1494 |
foreach my $subfield (@restore) { |
1495 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1495 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1496 |
} |
1496 |
} |
1497 |
$marcrecord->delete_field($field); |
1497 |
$field->replace_with($field_to); |
1498 |
$marcrecord->insert_grouped_field($field_to); |
|
|
1499 |
$update=1; |
1498 |
$update=1; |
1500 |
} |
1499 |
} |
1501 |
}#for each tag |
1500 |
}#for each tag |
1502 |
- |
|
|