From b473281729b2af789bd88ee053f3506591df617a Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 29 Apr 2024 14:14:20 +0000 Subject: [PATCH] Bug 35993: (follow-up) Fix Merge.t Content-Type: text/plain; charset=utf-8 The change for 005 makes some field compares fail. We should exclude 005 in the local compare_fields sub. We do NOT need the compare_fields from AuthoritiesMarc. Removing. Signed-off-by: Marcel de Rooy --- t/db_dependent/Authority/Merge.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Authority/Merge.t b/t/db_dependent/Authority/Merge.t index 0fd332ab4d..cfb5fd26fe 100755 --- a/t/db_dependent/Authority/Merge.t +++ b/t/db_dependent/Authority/Merge.t @@ -22,7 +22,7 @@ use Koha::Biblios; use Koha::Database; BEGIN { - use_ok('C4::AuthoritiesMarc', qw( merge AddAuthority compare_fields DelAuthority ModAuthority )); + use_ok('C4::AuthoritiesMarc', qw( merge AddAuthority DelAuthority ModAuthority )); } # Optionally change marc flavour @@ -636,6 +636,8 @@ sub compare_fields { # mode parameter: order or count # By default exclude field 100 from comparison in UNIMARC. # Will have been added by ModBiblio in merge. $exclude->{100} = 1; + } else { #MARC21 + $exclude->{'005'} = 1; } my @oldfields = map { $exclude->{$_->tag} ? () : $_->tag } $oldmarc->fields; my @newfields = map { $exclude->{$_->tag} ? () : $_->tag } $newmarc->fields; -- 2.30.2