|
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 |
- |
|
|