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