|
Lines 115-121
if ($do_it) {
Link Here
|
| 115 |
foreach my $col ( @$cols ) { |
115 |
foreach my $col ( @$cols ) { |
| 116 |
print $col->{coltitle}.$sep; |
116 |
print $col->{coltitle}.$sep; |
| 117 |
} |
117 |
} |
| 118 |
print "Total\n"; |
118 |
print gettext("Total") . "\n"; |
| 119 |
# Table |
119 |
# Table |
| 120 |
foreach my $line ( @$lines ) { |
120 |
foreach my $line ( @$lines ) { |
| 121 |
my $x = $line->{loopcell}; |
121 |
my $x = $line->{loopcell}; |
|
Lines 124-130
if ($do_it) {
Link Here
|
| 124 |
print $line->{totalrow}, "\n"; |
124 |
print $line->{totalrow}, "\n"; |
| 125 |
} |
125 |
} |
| 126 |
# footer |
126 |
# footer |
| 127 |
print "TOTAL"; |
127 |
print gettext("TOTAL"); |
| 128 |
$cols = @$results[0]->{loopfooter}; |
128 |
$cols = @$results[0]->{loopfooter}; |
| 129 |
print map {$sep.$_->{totalcol}} @$cols; |
129 |
print map {$sep.$_->{totalcol}} @$cols; |
| 130 |
print $sep.@$results[0]->{total}; |
130 |
print $sep.@$results[0]->{total}; |
| 131 |
- |
|
|