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