push @{ $self->{data} }, { 'type' => 'separator' };
}
+sub add_control {
+ my $self = shift;
+ my $data = shift;
+
+ push @{ $self->{data} }, $data;
+}
+
sub clear_data {
my $self = shift;
foreach my $row_set (@{ $self->{data} }) {
if ('HASH' eq ref $row_set) {
my $row_data = {
- 'IS_CONTROL' => 1,
- 'IS_SEPARATOR' => $row_set->{type} eq 'separator',
- 'NUM_COLUMNS' => scalar @visible_columns,
+ 'IS_CONTROL' => 1,
+ 'IS_SEPARATOR' => $row_set->{type} eq 'separator',
+ 'IS_COLSPAN_DATA' => $row_set->{type} eq 'colspan_data',
+ 'NUM_COLUMNS' => scalar @visible_columns,
+ 'data' => $row_set->{data},
};
push @rows, $row_data;
foreach my $col_name (@visible_columns) {
my $col = $row->{$col_name};
$col->{CELL_ROWS} = [ ];
- foreach my $i (0 .. scalar(@{ $col->{data} })) {
+ foreach my $i (0 .. scalar(@{ $col->{data} }) - 1) {
push @{ $col->{CELL_ROWS} }, {
'data' => $self->html_format($col->{data}->[$i]),
'link' => $col->{link}->[$i],
my $self = shift;
my $variables = $self->prepare_html_content();
- return $self->{form}->parse_html_template('report_generator/html_report', $variables);
+ return $self->{form}->parse_html_template2('report_generator/html_report', $variables);
}
sub verify_paper_size {