From a864ef272897c875c8be4af5c09870d03d9ec712 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 25 Feb 2016 18:59:45 +0100 Subject: [PATCH] PDF::Table: Warnungen und "-" Artefakte bei undef entfernt --- modules/override/PDF/Table.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm index 7ebe16fa4..1b7917b29 100644 --- a/modules/override/PDF/Table.pm +++ b/modules/override/PDF/Table.pm @@ -129,8 +129,8 @@ sub text_block # Check if any text to display unless( defined( $text) and length($text) > 0 ) { - carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; - $text = '-'; +# carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; + $text = ' '; } # Strip any and Split the text into paragraphs @@ -648,7 +648,7 @@ sub table # Added to resolve infite loop bug with returned undef values for(my $d = 0; $d < scalar(@{$record}) ; $d++) { - $record->[$d] = '-' unless( defined $record->[$d]); + $record->[$d] = ' ' unless( defined $record->[$d]); } # Choose colors for this row -- 2.20.1