fix to remove blank newlines from labels

Signed-off-by: Henri-Damien LAURENT <henridamien@koha-fr.org>

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 79d5251..65c62a7 100644 (file)
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -1098,6 +1098,7 @@ sub DrawSpineText {
             }
             # loop for each string line
             foreach my $str (@strings) {
+                next if $str eq '';
                 my $hPos = 0;
                 my $stringwidth = prStrWidth($str, $fontname, $fontsize);
                 if ( $$conf_data->{'text_justify'} eq 'R' ) {