From 9fb0451cd6727678a26812fb49129d18e82dc127 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Thu, 2 Aug 2012 09:18:39 -0400 Subject: [PATCH] Bug 6720 follow-up: fix error when auth has been deleted Content-Type: text/plain; charset="UTF-8" Thanks to Paul Poulain for finding the problem and proposing a solution. --- C4/AuthoritiesMarc.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 9ba916d..21ebd94 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -354,7 +354,7 @@ sub SearchAuthorities { my $thisauthtype = GetAuthType(GetAuthTypeCode($authid)); $newline{authtype} = defined ($thisauthtype) ? $thisauthtype->{'authtypetext'} : - GetAuthType($authtypecode)->{'authtypetext'}; + (GetAuthType($authtypecode) ? $_->{'authtypetext'} : ''); $newline{summary} = $summary; $newline{even} = $counter % 2; $newline{reported_tag} = $reported_tag; -- 1.7.2.5