Lines 1473-1478
sub merge {
Link Here
|
1473 |
} |
1473 |
} |
1474 |
# BulkEdit marc records |
1474 |
# BulkEdit marc records |
1475 |
# May be used as a template for a bulkedit field |
1475 |
# May be used as a template for a bulkedit field |
|
|
1476 |
my $overwrite = C4::Context->preference( 'AuthorityMergeMode' ) eq 'strict'; |
1476 |
foreach my $marcrecord(@reccache){ |
1477 |
foreach my $marcrecord(@reccache){ |
1477 |
my $update = 0; |
1478 |
my $update = 0; |
1478 |
foreach my $tagfield (@tags_using_authtype){ |
1479 |
foreach my $tagfield (@tags_using_authtype){ |
Lines 1490-1496
sub merge {
Link Here
|
1490 |
} |
1491 |
} |
1491 |
$exclude='['.$exclude.']'; |
1492 |
$exclude='['.$exclude.']'; |
1492 |
# add subfields in $field not included in @record_to |
1493 |
# add subfields in $field not included in @record_to |
1493 |
my @restore= grep {$_->[0]!~/$exclude/} $field->subfields(); |
1494 |
my @restore= $overwrite ? () : grep {$_->[0]!~/$exclude/} $field->subfields(); |
1494 |
foreach my $subfield (@restore) { |
1495 |
foreach my $subfield (@restore) { |
1495 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1496 |
$field_to->add_subfields($subfield->[0] =>$subfield->[1]); |
1496 |
} |
1497 |
} |
1497 |
- |
|
|