|
Lines 1530-1540
sub merge {
Link Here
|
| 1530 |
$exclude.= $subfield->[0]; |
1530 |
$exclude.= $subfield->[0]; |
| 1531 |
} |
1531 |
} |
| 1532 |
$exclude='['.$exclude.']'; |
1532 |
$exclude='['.$exclude.']'; |
| 1533 |
# add subfields in $field not included in @record_to |
|
|
| 1534 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
| 1535 |
foreach my $subfield (@restore) { |
| 1536 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
| 1537 |
} |
| 1538 |
$marcrecord->delete_field($field); |
1533 |
$marcrecord->delete_field($field); |
| 1539 |
$marcrecord->insert_grouped_field($field_to); |
1534 |
$marcrecord->insert_grouped_field($field_to); |
| 1540 |
$update=1; |
1535 |
$update=1; |
| 1541 |
- |
|
|