Lines 1669-1676
sub merge {
Link Here
|
1669 |
my $biblios = Koha::Biblios->search( { biblionumber => { -in => \@biblionumbers } } ); |
1669 |
my $biblios = Koha::Biblios->search( { biblionumber => { -in => \@biblionumbers } } ); |
1670 |
|
1670 |
|
1671 |
while ( my $biblio = $biblios->next ) { |
1671 |
while ( my $biblio = $biblios->next ) { |
1672 |
my $marcrecord = $biblio->metadata->record; |
1672 |
my $marcrecord = $biblio->metadata->record; |
1673 |
my $update = 0; |
1673 |
my $update = 0; |
|
|
1674 |
my $reindex_if_needed = 0; |
1674 |
foreach my $tagfield (@$tags_using_authtype) { |
1675 |
foreach my $tagfield (@$tags_using_authtype) { |
1675 |
my $countfrom = 0; # used in strict mode to remove duplicates |
1676 |
my $countfrom = 0; # used in strict mode to remove duplicates |
1676 |
foreach my $field ( $marcrecord->field($tagfield) ) { |
1677 |
foreach my $field ( $marcrecord->field($tagfield) ) { |
Lines 1743-1754
sub merge {
Link Here
|
1743 |
if ( $tags_new && @$tags_new ) { |
1744 |
if ( $tags_new && @$tags_new ) { |
1744 |
$marcrecord->delete_field($field); |
1745 |
$marcrecord->delete_field($field); |
1745 |
append_fields_ordered( $marcrecord, $field_to ); |
1746 |
append_fields_ordered( $marcrecord, $field_to ); |
|
|
1747 |
$update = 1; |
1746 |
} else { |
1748 |
} else { |
1747 |
$field->replace_with($field_to); |
1749 |
|
|
|
1750 |
# If there was no real change of the linked bibliographic |
1751 |
# field, there is also no need to make ModBiblio. |
1752 |
# Only a refresh of index could be helpful in case of |
1753 |
# a change in the tracing fields |
1754 |
if ( $field->as_formatted ne $field_to->as_formatted ) { |
1755 |
$field->replace_with($field_to); |
1756 |
$update = 1; |
1757 |
} else { |
1758 |
$reindex_if_needed = 1; |
1759 |
} |
1748 |
} |
1760 |
} |
1749 |
$update = 1; |
|
|
1750 |
} |
1761 |
} |
1751 |
} |
1762 |
} |
|
|
1763 |
if ( |
1764 |
!$update |
1765 |
&& $reindex_if_needed |
1766 |
&& ( C4::Context->preference('IncludeSeeFromInSearches') |
1767 |
|| C4::Context->preference('IncludeSeeAlsoFromInSearches') ) |
1768 |
) |
1769 |
{ |
1770 |
my $indexer = Koha::SearchEngine::Indexer->new( { index => $Koha::SearchEngine::BIBLIOS_INDEX } ); |
1771 |
$indexer->index_records( $biblio->biblionumber, "specialUpdate", "biblioserver" ); |
1772 |
} |
1752 |
next if !$update; |
1773 |
next if !$update; |
1753 |
ModBiblio( $marcrecord, $biblio->biblionumber, $biblio->frameworkcode, { disable_autolink => 1 } ); |
1774 |
ModBiblio( $marcrecord, $biblio->biblionumber, $biblio->frameworkcode, { disable_autolink => 1 } ); |
1754 |
$counteditedbiblio++; |
1775 |
$counteditedbiblio++; |
1755 |
- |
|
|