Lines 1471-1476
sub merge {
Link Here
|
1471 |
# We only need it in loose merge mode; replaces the former $exclude |
1471 |
# We only need it in loose merge mode; replaces the former $exclude |
1472 |
? {} |
1472 |
? {} |
1473 |
: { map { ( $_->[0], 1 ); } ( @record_from, @record_to ) }; |
1473 |
: { map { ( $_->[0], 1 ); } ( @record_from, @record_to ) }; |
|
|
1474 |
# And we need to add $9 in order not to duplicate |
1475 |
$skip_subfields->{9} = 1 if !$overwrite; |
1476 |
|
1474 |
foreach my $marcrecord(@reccache){ |
1477 |
foreach my $marcrecord(@reccache){ |
1475 |
my $update = 0; |
1478 |
my $update = 0; |
1476 |
foreach my $tagfield (@$tags_using_authtype) { |
1479 |
foreach my $tagfield (@$tags_using_authtype) { |
1477 |
- |
|
|