From 31a66fcffe85fd3b6a78a7d829de143e48919bd8 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 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 Signed-off-by: Katrin Fischer --- 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.39.5