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 |
- |
|
|