@@ -, +, @@ those headings. --- C4/AuthoritiesMarc.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -358,10 +358,12 @@ sub SearchAuthorities { $reported_tag .= '$' . $_->[0] . $_->[1]; } } - my $thisauthtype = GetAuthType(GetAuthTypeCode($authid)); - $thisauthtype |= GetAuthType($authtypecode) if $authtypecode; - $newline{authtype} = defined ($thisauthtype) ? - $thisauthtype->{'authtypetext'} : ''; + my %thisauthtype = GetAuthType(GetAuthTypeCode($authid)); + unless (defined %thisauthtype) { + %thisauthtype = GetAuthType($authtypecode) if $authtypecode; + } + $newline{authtype} = defined (%thisauthtype) ? + $thisauthtype{'authtypetext'} : ''; $newline{summary} = $summary; $newline{even} = $counter % 2; $newline{reported_tag} = $reported_tag; --