gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 7417 follow-up: fix a perlcritic violation 

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Jared Camins-Esakov 2012-09-13 13:39:13 -04:00 committed by Paul Poulain
parent bc05b5d163
commit 340ba63758
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Koha/Authority.pm
View File

@ -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,

2
Koha/Filter/MARC/EmbedSeeFromHeadings.pm
View File

@ -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;