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