From f7f2db2f9cbcdf645883fe1ac081ee79f97decfb 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>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
---
 C4/Biblio.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index fbe4324a64..a071363557 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)];
         }