From aba7661e1a0c4f0f6fbbbf69222eb6717cf930a8 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Wed, 11 Jun 2014 13:36:28 +0200
Subject: [PATCH] Bug 12343: QA follow-up

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
---
 C4/Biblio.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 7e10e69..0ee661b 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.0.0.rc2