package SL::ReportGenerator;
-#use strict;
-
+use Data::Dumper;
use Encode;
use IO::Wrap;
use List::Util qw(max);
next;
}
- my $col = $row->{$col_name};
+ my $col = $row->{$col_name} || { data => [] };
$col->{CELL_ROWS} = [ ];
foreach my $i (0 .. scalar(@{ $col->{data} }) - 1) {
push @{ $col->{CELL_ROWS} }, {