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