|
Lines 64-69
my $basename = $input->param("basename");
Link Here
|
| 64 |
our $sep = $input->param("sep"); |
64 |
our $sep = $input->param("sep"); |
| 65 |
$sep = "\t" if ($sep and $sep eq 'tabulation'); |
65 |
$sep = "\t" if ($sep and $sep eq 'tabulation'); |
| 66 |
my $selected_branch; # = $input->param("?"); |
66 |
my $selected_branch; # = $input->param("?"); |
|
|
67 |
my $ntotal = $input->param("ntotal"); |
| 68 |
my $utotal = $input->param("utotal"); |
| 67 |
|
69 |
|
| 68 |
our $branches = GetBranches; |
70 |
our $branches = GetBranches; |
| 69 |
|
71 |
|
|
Lines 96-102
if ($do_it) {
Link Here
|
| 96 |
foreach my $col ( @$cols ) { |
98 |
foreach my $col ( @$cols ) { |
| 97 |
print $col->{coltitle}.$sep; |
99 |
print $col->{coltitle}.$sep; |
| 98 |
} |
100 |
} |
| 99 |
print "Total\n"; |
101 |
print "$ntotal\n"; |
| 100 |
foreach my $line ( @$lines ) { |
102 |
foreach my $line ( @$lines ) { |
| 101 |
my $x = $line->{loopcell}; |
103 |
my $x = $line->{loopcell}; |
| 102 |
print $line->{rowtitle}.$sep; |
104 |
print $line->{rowtitle}.$sep; |
|
Lines 106-112
if ($do_it) {
Link Here
|
| 106 |
print $line->{totalrow}; |
108 |
print $line->{totalrow}; |
| 107 |
print "\n"; |
109 |
print "\n"; |
| 108 |
} |
110 |
} |
| 109 |
print "TOTAL"; |
111 |
print "$utotal"; |
| 110 |
$cols = @$results[0]->{loopfooter}; |
112 |
$cols = @$results[0]->{loopfooter}; |
| 111 |
foreach my $col ( @$cols ) { |
113 |
foreach my $col ( @$cols ) { |
| 112 |
print $sep.$col->{totalcol}; |
114 |
print $sep.$col->{totalcol}; |
| 113 |
- |
|
|