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
$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;
}