View | Details | Raw Unified | Return to bug 17913
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-2 / +2 lines)
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
- 

Return to bug 17913