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