PDF::Table: Warnungen und "-" Artefakte bei undef entfernt

diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm
index 7ebe16fa485595cb21784c7ac7b51aeea229ff8f..1b7917b2928518ee1fe069bfeee170c5024b9ca2 100644 (file)
--- 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 )
     {
     # 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 <CR> and Split the text into paragraphs
     }
 
     # Strip any <CR> 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++)
             { 
             # 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
             }
 
             # Choose colors for this row