X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=modules%2Foverride%2FPDF%2FTable.pm;h=1b7917b2928518ee1fe069bfeee170c5024b9ca2;hb=a864ef272897c875c8be4af5c09870d03d9ec712;hp=fd83d04382a1a6e9a7509638e4db4a7d1f8d126c;hpb=53b594492c17d13c3e837531a30d3e9fac5219a2;p=kivitendo-erp.git diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm index fd83d0438..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 @@ -584,11 +584,9 @@ sub table if( ref $header_props and $header_props->{'repeat'}) { - for my $idx (0 .. $header_props->{num_header_rows} - 1) { - unshift @$data, [ @{ $header_rows[$idx] } ]; - unshift @$row_col_widths, [ @{ $header_row_widths[$idx] } ]; - unshift @$rows_height, $header_row_heights[$idx]; - } + unshift @$data, @header_rows; + unshift @$row_col_widths, @header_row_widths; + unshift @$rows_height, @header_row_heights; $remaining_header_rows = $header_props->{num_header_rows}; } } @@ -650,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