From 456790e2d1c8ac979e1c05bfbb6d88d2a0057182 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 20 Jan 2017 12:54:56 +0100 Subject: [PATCH] Bug 17913: [Follow-up] Another small fix for UNIMARC Content-Type: text/plain; charset=utf-8 Adding another delete for field 100. Will mock GetMarcBiblio on a new report. --- t/db_dependent/Authorities/Merge.t | 1 + 1 file changed, 1 insertion(+) diff --git a/t/db_dependent/Authorities/Merge.t b/t/db_dependent/Authorities/Merge.t index c318f16..3102695 100755 --- a/t/db_dependent/Authorities/Merge.t +++ b/t/db_dependent/Authorities/Merge.t @@ -134,6 +134,7 @@ subtest 'Test merge A1 to modified A1, test strict mode' => sub { $index = 0; $rv = C4::AuthoritiesMarc::merge( $authid1, $auth1old, $authid1, $auth1new ); $biblio1 = GetMarcBiblio($biblionumber1); + $biblio1->delete_fields( $biblio1->field('100') ); # quick fix for UNIMARC is( $biblio1->field(109)->subfield('b'), undef, 'Subfield overwritten in strict mode' ); is( $biblio1->fields, scalar( $MARC1->fields ) - 1, 'strict mode should remove a duplicate 609' ); is( $biblio1->field(609)->subfields, -- 2.1.4