From 7e694228c29a2a20829d927bbcaeba2d1f4369fb Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 11 Jun 2014 13:36:28 +0200 Subject: [PATCH] Bug 12343: QA follow-up Signed-off-by: Jonathan Druart --- C4/Biblio.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 7e10e69774..0ee661b925 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2194,9 +2194,10 @@ sub TransformKohaToMarc { while ( my ($name, $value) = each %$hash ) { next unless my $dtm = $db_to_marc->{''}->{$name}; next unless ( scalar( @$dtm ) ); - my ($tag, $letter) = @$dtm; $tag .= ''; + my ($tag, $letter) = @$dtm; + $tag .= ''; foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { - $value eq '' && next; + next if $value eq ''; $tag_hr->{$tag} //= []; push @{$tag_hr->{$tag}}, [($letter, $value)]; } -- 2.39.5