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

(-)a/t/db_dependent/Authority/Merge.t (-2 / +3 lines)
Lines 22-28 use Koha::Biblios; Link Here
22
use Koha::Database;
22
use Koha::Database;
23
23
24
BEGIN {
24
BEGIN {
25
        use_ok('C4::AuthoritiesMarc', qw( merge AddAuthority compare_fields DelAuthority ModAuthority ));
25
        use_ok('C4::AuthoritiesMarc', qw( merge AddAuthority DelAuthority ModAuthority ));
26
}
26
}
27
27
28
# Optionally change marc flavour
28
# Optionally change marc flavour
Lines 636-641 sub compare_fields { # mode parameter: order or count Link Here
636
        # By default exclude field 100 from comparison in UNIMARC.
636
        # By default exclude field 100 from comparison in UNIMARC.
637
        # Will have been added by ModBiblio in merge.
637
        # Will have been added by ModBiblio in merge.
638
        $exclude->{100} = 1;
638
        $exclude->{100} = 1;
639
    } else { #MARC21
640
        $exclude->{'005'} = 1;
639
    }
641
    }
640
    my @oldfields = map { $exclude->{$_->tag} ? () : $_->tag } $oldmarc->fields;
642
    my @oldfields = map { $exclude->{$_->tag} ? () : $_->tag } $oldmarc->fields;
641
    my @newfields = map { $exclude->{$_->tag} ? () : $_->tag } $newmarc->fields;
643
    my @newfields = map { $exclude->{$_->tag} ? () : $_->tag } $newmarc->fields;
642
- 

Return to bug 35993