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

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

Return to bug 35702