|
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->id, $biblio->frameworkcode); |
| 1651 |
$counteditedbiblio++; |
1652 |
$counteditedbiblio++; |
| 1652 |
} |
1653 |
} |
| 1653 |
return $counteditedbiblio; |
1654 |
return $counteditedbiblio; |
| 1654 |
- |
|
|