Lines 1571-1579
sub merge {
Link Here
|
1571 |
: { map { ( $_->[0], 1 ); } ( @record_from, @record_to ) }; |
1571 |
: { map { ( $_->[0], 1 ); } ( @record_from, @record_to ) }; |
1572 |
|
1572 |
|
1573 |
my $counteditedbiblio = 0; |
1573 |
my $counteditedbiblio = 0; |
1574 |
foreach my $biblionumber ( @biblionumbers ) { |
1574 |
|
1575 |
my $biblio = Koha::Biblios->find($biblionumber); |
1575 |
my $biblios = Koha::Biblios->search({ biblionumber => { -in => \@biblionumbers } }); |
1576 |
next unless $biblio; |
1576 |
|
|
|
1577 |
while ( my $biblio = $biblios->next ) { |
1577 |
my $marcrecord = $biblio->metadata->record; |
1578 |
my $marcrecord = $biblio->metadata->record; |
1578 |
my $update = 0; |
1579 |
my $update = 0; |
1579 |
foreach my $tagfield (@$tags_using_authtype) { |
1580 |
foreach my $tagfield (@$tags_using_authtype) { |
Lines 1647-1653
sub merge {
Link Here
|
1647 |
} |
1648 |
} |
1648 |
} |
1649 |
} |
1649 |
next if !$update; |
1650 |
next if !$update; |
1650 |
ModBiblio($marcrecord, $biblionumber, $biblio->frameworkcode); |
1651 |
ModBiblio($marcrecord, $biblio->biblionumber, $biblio->frameworkcode); |
1651 |
$counteditedbiblio++; |
1652 |
$counteditedbiblio++; |
1652 |
} |
1653 |
} |
1653 |
return $counteditedbiblio; |
1654 |
return $counteditedbiblio; |
1654 |
- |
|
|