@@ -, +, @@ --- C4/AuthoritiesMarc.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -850,7 +850,7 @@ sub GetAuthority { my ($authtypecode, $marcxml) = $sth->fetchrow; my $record=eval {MARC::Record->new_from_xml(StripNonXmlChars($marcxml),'UTF-8', (C4::Context->preference("marcflavour") eq "UNIMARC"?"UNIMARCAUTH":C4::Context->preference("marcflavour")))}; - return undef if ($@); + return if ($@); $record->encoding('UTF-8'); if (C4::Context->preference("marcflavour") eq "MARC21") { my ($auth_type_tag, $auth_type_subfield) = get_auth_type_location($authtypecode); @@ -1188,7 +1188,7 @@ sub BuildUnimarcHierarchy{ my $record = shift @_; my $class = shift @_; my $authid_constructed = shift @_; - return undef unless ($record); + return unless ($record); my $authid=$record->field('001')->data(); my %cell; my $parents=""; my $children=""; --