X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/684ded1005504bae0a9f26dca5a86b41b4d34730..53593baa211863fbf66540cf1bcc36c8fb37257f:/modules/override/PDF/Table.pm diff --git a/modules/override/PDF/Table.pm b/modules/override/PDF/Table.pm index 31045f034..602c88728 100755 --- a/modules/override/PDF/Table.pm +++ b/modules/override/PDF/Table.pm @@ -463,7 +463,7 @@ sub table for( my $row_idx = 0; $row_idx < scalar(@$data) ; $row_idx++ ) { - push @header_row_widths, [] if $row_idx < $header_props->{num_header_rows}; + #push @header_row_widths, [] if $row_idx < $header_props->{num_header_rows}; my $column_widths = []; #holds the width of each column # Init the height for this row @@ -505,8 +505,12 @@ sub table $rows_height->[$row_idx] = $cell_font_size; } + if (!defined $data->[$row_idx][$column_idx]) { + $data->[$row_idx][$column_idx] = ' '; + } + # This should fix a bug with very long words like serial numbers etc. - if( $max_word_len > 0 ) + if( $max_word_len > 0 && $data->[$row_idx][$column_idx]) { $data->[$row_idx][$column_idx] =~ s#(\S{$max_word_len})(?=\S)#$1 #g; }