Lines 135-146
if ($do_it) {
Link Here
|
135 |
print map { $_->{value} . $sep } @$x; |
135 |
print map { $_->{value} . $sep } @$x; |
136 |
print $line->{totalrow}, "\n"; |
136 |
print $line->{totalrow}, "\n"; |
137 |
} |
137 |
} |
138 |
# footer |
|
|
139 |
print "TOTAL"; |
140 |
$cols = @$results[0]->{loopfooter}; |
141 |
print map {$sep.$_->{totalcol}} @$cols; |
142 |
print $sep.@$results[0]->{total}; |
143 |
|
138 |
|
|
|
139 |
# footer |
140 |
print "TOTAL"; |
141 |
$cols = @$results[0]->{loopfooter}; |
142 |
print map {$sep.$_->{totalcol}} @$cols; |
143 |
print $sep.@$results[0]->{total}; |
144 |
} |
144 |
} |
145 |
exit; |
145 |
exit; |
146 |
} |
146 |
} |
147 |
- |
|
|