Merge remote-tracking branch 'origin/new/bug_7417'
This commit is contained in:
commit
53e08d9811
2 changed files with 2 additions and 2 deletions
|
@ -77,7 +77,7 @@ sub get_from_authid {
|
|||
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');
|
||||
|
||||
my $self = $class->SUPER::new( { authid => $authid,
|
||||
|
|
|
@ -54,7 +54,7 @@ sub filter {
|
|||
my $record = shift;
|
||||
my $newrecord;
|
||||
|
||||
return undef unless defined $record;
|
||||
return unless defined $record;
|
||||
|
||||
if (ref $record eq 'ARRAY') {
|
||||
my @recarray;
|
||||
|
|
Loading…
Reference in a new issue