|
Lines 93-109
if ($do_it) {
Link Here
|
| 93 |
print $line->{rowtitle}.$sep; |
93 |
print $line->{rowtitle}.$sep; |
| 94 |
foreach my $cell (@$x) { |
94 |
foreach my $cell (@$x) { |
| 95 |
print $cell->{value}.$sep; |
95 |
print $cell->{value}.$sep; |
|
|
96 |
print $cell->{count}; |
| 96 |
} |
97 |
} |
| 97 |
print $line->{totalrow}; |
|
|
| 98 |
print "\n"; |
98 |
print "\n"; |
| 99 |
} |
99 |
} |
| 100 |
# footer |
|
|
| 101 |
print "TOTAL"; |
| 102 |
$cols = @$results[0]->{loopfooter}; |
| 103 |
foreach my $col ( @$cols ) { |
| 104 |
print $sep.$col->{totalcol}; |
| 105 |
} |
| 106 |
print $sep.@$results[0]->{total}; |
| 107 |
exit; |
100 |
exit; |
| 108 |
} |
101 |
} |
| 109 |
# Displaying choices |
102 |
# Displaying choices |
|
Lines 163-169
output_html_with_http_headers $input, $cookie, $template->output;
Link Here
|
| 163 |
sub calculate { |
156 |
sub calculate { |
| 164 |
my ($line, $column, $filters) = @_; |
157 |
my ($line, $column, $filters) = @_; |
| 165 |
my @mainloop; |
158 |
my @mainloop; |
| 166 |
my @loopfooter; |
|
|
| 167 |
my @loopcol; |
159 |
my @loopcol; |
| 168 |
my @loopline; |
160 |
my @loopline; |
| 169 |
my @looprow; |
161 |
my @looprow; |
|
Lines 415-421
sub calculate {
Link Here
|
| 415 |
$globalline{looprow} = \@looprow; |
407 |
$globalline{looprow} = \@looprow; |
| 416 |
$globalline{loopcol} = \@loopcol; |
408 |
$globalline{loopcol} = \@loopcol; |
| 417 |
# # the foot (totals by borrower type) |
409 |
# # the foot (totals by borrower type) |
| 418 |
$globalline{loopfooter} = \@loopfooter; |
|
|
| 419 |
$globalline{total}= $grantotal; |
410 |
$globalline{total}= $grantotal; |
| 420 |
$globalline{line} = $line; |
411 |
$globalline{line} = $line; |
| 421 |
$globalline{column} = $column; |
412 |
$globalline{column} = $column; |
| 422 |
- |
|
|