print map { $_->{value} . $sep } @$x;
print $line->{totalrow}, "\n";
}
-# footer
- print "TOTAL";
- $cols = @$results[0]->{loopfooter};
- print map {$sep.$_->{totalcol}} @$cols;
- print $sep.@$results[0]->{total};
+ # footer
+ print "TOTAL";
+ $cols = @$results[0]->{loopfooter};
+ print map {$sep.$_->{totalcol}} @$cols;
+ print $sep.@$results[0]->{total};
}
exit;
}