|
Lines 93-99
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 |
print $cell->{count} // ''; |
| 97 |
} |
97 |
} |
| 98 |
print "\n"; |
98 |
print "\n"; |
| 99 |
} |
99 |
} |
|
Lines 102-111
if ($do_it) {
Link Here
|
| 102 |
# Displaying choices |
102 |
# Displaying choices |
| 103 |
} else { |
103 |
} else { |
| 104 |
my $dbh = C4::Context->dbh; |
104 |
my $dbh = C4::Context->dbh; |
| 105 |
my @values; |
|
|
| 106 |
my %labels; |
| 107 |
my %select; |
| 108 |
my $req; |
| 109 |
|
105 |
|
| 110 |
my $CGIextChoice = ( 'CSV' ); # FIXME translation |
106 |
my $CGIextChoice = ( 'CSV' ); # FIXME translation |
| 111 |
my $CGIsepChoice=GetDelimiterChoices; |
107 |
my $CGIsepChoice=GetDelimiterChoices; |
|
Lines 157-163
sub calculate {
Link Here
|
| 157 |
my ($line, $column, $filters) = @_; |
153 |
my ($line, $column, $filters) = @_; |
| 158 |
my @mainloop; |
154 |
my @mainloop; |
| 159 |
my @loopcol; |
155 |
my @loopcol; |
| 160 |
my @loopline; |
|
|
| 161 |
my @looprow; |
156 |
my @looprow; |
| 162 |
my %globalline; |
157 |
my %globalline; |
| 163 |
my $grantotal =0; |
158 |
my $grantotal =0; |
|
Lines 357-363
sub calculate {
Link Here
|
| 357 |
|
352 |
|
| 358 |
my $dbcalc = $dbh->prepare($strcalc); |
353 |
my $dbcalc = $dbh->prepare($strcalc); |
| 359 |
$dbcalc->execute; |
354 |
$dbcalc->execute; |
| 360 |
my $previous_col; |
|
|
| 361 |
my %indice; |
355 |
my %indice; |
| 362 |
while (my @data = $dbcalc->fetchrow) { |
356 |
while (my @data = $dbcalc->fetchrow) { |
| 363 |
my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data; |
357 |
my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data; |
| 364 |
- |
|
|