Bug 12343: QA follow-up

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 7e10e69..0ee661b 100644 (file)
--- 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)];
         }