@@ -, +, @@ '952', 'w' ]; $VAR1 = []; --- C4/Biblio.pm | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1996,6 +1996,7 @@ sub TransformKohaToMarc { my $db_to_marc = C4::Context->marcfromkohafield; while ( my ($name, $value) = each %$hash ) { next unless my $dtm = $db_to_marc->{''}->{$name}; + next unless ( scalar( @$dtm ) ); my ($tag, $letter) = @$dtm; foreach my $value ( split(/\s?\|\s?/, $value, -1) ) { if ( my $field = $record->field($tag) ) { --