- foreach my $custom_header_row (@{ $self->{custom_headers} }) {
- $csv->print($stdout, [ map { $self->unescape_string($_->{text}) } @{ $custom_header_row } ]);
+ foreach my $row (@{ $self->{custom_headers} }) {
+ my $fields = [ ];
+ my $skip_next = 0;
+
+ foreach my $col (@{ $row }) {
+ my $num_output = ($col->{colspan} && ($col->{colspan} > 1)) ? $col->{colspan} : 1;
+ push @{ $fields }, ($self->unescape_string($col->{text})) x $num_output;
+ }
+
+ $csv->print($stdout, $fields);