From df11cd8e5034159499de02c60835b7b82efcf5de Mon Sep 17 00:00:00 2001 From: Pedro Date: Wed, 27 Nov 2019 12:10:19 -0100 Subject: [PATCH] fix-for-subsequent-authorities-merge --- C4/AuthoritiesMarc.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index c0c42df..8ed3f42 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1414,6 +1414,8 @@ sub merge { my $auth_tag_to_report_from = $authtypefrom ? $authtypefrom->auth_tag_to_report : ''; my $auth_tag_to_report_to = $authtypeto ? $authtypeto->auth_tag_to_report : ''; + return 0 if !$authto; + my @record_to; @record_to = $MARCto->field($auth_tag_to_report_to)->subfields() if $auth_tag_to_report_to && $MARCto && $MARCto->field($auth_tag_to_report_to); # Exceptional: If MARCto and authtypeto exist but $auth_tag_to_report_to -- 2.7.4