Lines 129-135
if ($do_it) {
Link Here
|
129 |
); |
129 |
); |
130 |
push @itemtypeloop, \%row; |
130 |
push @itemtypeloop, \%row; |
131 |
} |
131 |
} |
132 |
|
132 |
|
|
|
133 |
#ccode |
134 |
my $ccodes = GetAuthorisedValues('CCODE'); |
135 |
my @ccodeloop; |
136 |
for my $thisccode (@$ccodes) { |
137 |
my %row = (value => $thisccode->{authorised_value}, |
138 |
description => $thisccode->{lib}, |
139 |
); |
140 |
push @ccodeloop, \%row; |
141 |
} |
142 |
|
143 |
@ccodeloop = sort {$a->{value} cmp $b->{value}} @ccodeloop; |
144 |
|
145 |
#shelvingloc |
146 |
my $shelvinglocs = GetAuthorisedValues('LOC'); |
147 |
my @shelvinglocloop; |
148 |
for my $thisloc (@$shelvinglocs) { |
149 |
my %row = (value => $thisloc->{authorised_value}, |
150 |
description => $thisloc->{lib}, |
151 |
); |
152 |
push @shelvinglocloop, \%row; |
153 |
} |
154 |
|
155 |
@shelvinglocloop = sort {$a->{value} cmp $b->{value}} @shelvinglocloop; |
156 |
|
133 |
#borcat |
157 |
#borcat |
134 |
my ($codes,$labels) = GetborCatFromCatType(undef,undef); |
158 |
my ($codes,$labels) = GetborCatFromCatType(undef,undef); |
135 |
my @borcatloop; |
159 |
my @borcatloop; |
Lines 147-152
if ($do_it) {
Link Here
|
147 |
CGIsepChoice => $CGIsepChoice, |
171 |
CGIsepChoice => $CGIsepChoice, |
148 |
branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}), |
172 |
branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}), |
149 |
itemtypeloop =>\@itemtypeloop, |
173 |
itemtypeloop =>\@itemtypeloop, |
|
|
174 |
ccodeloop =>\@ccodeloop, |
175 |
shelvinglocloop =>\@shelvinglocloop, |
150 |
borcatloop =>\@borcatloop, |
176 |
borcatloop =>\@borcatloop, |
151 |
); |
177 |
); |
152 |
output_html_with_http_headers $input, $cookie, $template->output; |
178 |
output_html_with_http_headers $input, $cookie, $template->output; |
Lines 171-177
sub calculate {
Link Here
|
171 |
# Checking filters |
197 |
# Checking filters |
172 |
# |
198 |
# |
173 |
my @loopfilter; |
199 |
my @loopfilter; |
174 |
for (my $i=0;$i<=6;$i++) { |
200 |
for (my $i=0;$i<=12;$i++) { |
175 |
my %cell; |
201 |
my %cell; |
176 |
if ( @$filters[$i] ) { |
202 |
if ( @$filters[$i] ) { |
177 |
if (($i==1) and (@$filters[$i-1])) { |
203 |
if (($i==1) and (@$filters[$i-1])) { |
Lines 190-199
sub calculate {
Link Here
|
190 |
$cell{crit} .="Return To" if ($i==3); |
216 |
$cell{crit} .="Return To" if ($i==3); |
191 |
$cell{crit} .="Branch" if ($i==4); |
217 |
$cell{crit} .="Branch" if ($i==4); |
192 |
$cell{crit} .="Doc Type" if ($i==5); |
218 |
$cell{crit} .="Doc Type" if ($i==5); |
193 |
$cell{crit} .="Bor Cat" if ($i==6); |
219 |
$cell{crit} .="Call number" if ($i==6); |
194 |
$cell{crit} .="Day" if ($i==7); |
220 |
$cell{crit} .="Collection code" if ($i==7); |
195 |
$cell{crit} .="Month" if ($i==8); |
221 |
$cell{crit} .="Shelving location" if ($i==8); |
196 |
$cell{crit} .="Year" if ($i==9); |
222 |
$cell{crit} .="Bor Cat" if ($i==9); |
|
|
223 |
$cell{crit} .="Day" if ($i==10); |
224 |
$cell{crit} .="Month" if ($i==11); |
225 |
$cell{crit} .="Year" if ($i==12); |
197 |
push @loopfilter, \%cell; |
226 |
push @loopfilter, \%cell; |
198 |
} |
227 |
} |
199 |
} |
228 |
} |
Lines 212-222
sub calculate {
Link Here
|
212 |
$colfilter[1] = @$filters[3] if ($column =~ /returndate/ ) ; |
241 |
$colfilter[1] = @$filters[3] if ($column =~ /returndate/ ) ; |
213 |
$colfilter[0] = @$filters[4] if ($column =~ /branch/ ) ; |
242 |
$colfilter[0] = @$filters[4] if ($column =~ /branch/ ) ; |
214 |
$colfilter[0] = @$filters[5] if ($column =~ /itemtype/ ) ; |
243 |
$colfilter[0] = @$filters[5] if ($column =~ /itemtype/ ) ; |
215 |
$colfilter[0] = @$filters[6] if ($column =~ /category/ ) ; |
244 |
# These limits does not currently exist, maybe later? |
216 |
# $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ; |
245 |
# $colfilter[0] = @$filters[6] if ($column =~ /ccode/ ) ; |
217 |
$colfilter[0] = @$filters[7] if ($column =~ /timestamp/ ) ; |
246 |
# $colfilter[0] = @$filters[7] if ($column =~ /location/ ) ; |
218 |
$colfilter[0] = @$filters[8] if ($column =~ /timestamp/ ) ; |
247 |
$colfilter[0] = @$filters[8] if ($column =~ /category/ ) ; |
|
|
248 |
# This commented out row (sort2) was not removed when adding new filters for ccode, shelving location and call number |
249 |
# $colfilter[0] = @$filters[11] if ($column =~ /sort2/ ) ; |
219 |
$colfilter[0] = @$filters[9] if ($column =~ /timestamp/ ) ; |
250 |
$colfilter[0] = @$filters[9] if ($column =~ /timestamp/ ) ; |
|
|
251 |
$colfilter[0] = @$filters[10] if ($column =~ /timestamp/ ) ; |
252 |
$colfilter[0] = @$filters[11] if ($column =~ /timestamp/ ) ; |
220 |
#warn "filtre col ".$colfilter[0]." ".$colfilter[1]; |
253 |
#warn "filtre col ".$colfilter[0]." ".$colfilter[1]; |
221 |
|
254 |
|
222 |
# loop cols. |
255 |
# loop cols. |
Lines 301-306
sub calculate {
Link Here
|
301 |
|
334 |
|
302 |
# Processing average loanperiods |
335 |
# Processing average loanperiods |
303 |
$strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber) AS RANK, biblio.biblionumber AS ID"; |
336 |
$strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber) AS RANK, biblio.biblionumber AS ID"; |
|
|
337 |
$strcalc .= ", itemcallnumber as CALLNUM"; |
338 |
$strcalc .= ", ccode as CCODE"; |
339 |
$strcalc .= ", location as LOC"; |
304 |
$strcalc .= " , $colfield " if ($colfield); |
340 |
$strcalc .= " , $colfield " if ($colfield); |
305 |
$strcalc .= " FROM `old_issues` |
341 |
$strcalc .= " FROM `old_issues` |
306 |
LEFT JOIN items USING(itemnumber) |
342 |
LEFT JOIN items USING(itemnumber) |
Lines 329-341
sub calculate {
Link Here
|
329 |
$strcalc .= "'" . @$filters[5] ."'" ; |
365 |
$strcalc .= "'" . @$filters[5] ."'" ; |
330 |
} |
366 |
} |
331 |
@$filters[6]=~ s/\*/%/g if (@$filters[6]); |
367 |
@$filters[6]=~ s/\*/%/g if (@$filters[6]); |
332 |
$strcalc .= " AND borrowers.categorycode like '" . @$filters[6] ."'" if ( @$filters[6] ); |
368 |
$strcalc .= " AND itemcallnumber like '" . @$filters[6] ."'" if ( @$filters[6] ); |
333 |
@$filters[7]=~ s/\*/%/g if (@$filters[7]); |
369 |
@$filters[7]=~ s/\*/%/g if (@$filters[7]); |
334 |
$strcalc .= " AND dayname(old_issues.timestamp) like '" . @$filters[7]."'" if (@$filters[7]); |
370 |
$strcalc .= " AND ccode like '" . @$filters[7] ."'" if ( @$filters[7] ); |
335 |
@$filters[8]=~ s/\*/%/g if (@$filters[8]); |
371 |
@$filters[8]=~ s/\*/%/g if (@$filters[8]); |
336 |
$strcalc .= " AND monthname(old_issues.timestamp) like '" . @$filters[8]."'" if (@$filters[8]); |
372 |
$strcalc .= " AND location like '" . @$filters[8] ."'" if ( @$filters[8] ); |
337 |
@$filters[9]=~ s/\*/%/g if (@$filters[9]); |
373 |
@$filters[9]=~ s/\*/%/g if (@$filters[9]); |
338 |
$strcalc .= " AND year(old_issues.timestamp) like '" . @$filters[9] ."'" if ( @$filters[9] ); |
374 |
$strcalc .= " AND borrowers.categorycode like '" . @$filters[9] ."'" if ( @$filters[9] ); |
|
|
375 |
@$filters[10]=~ s/\*/%/g if (@$filters[10]); |
376 |
$strcalc .= " AND dayname(old_issues.timestamp) like '" . @$filters[10]."'" if (@$filters[10]); |
377 |
@$filters[11]=~ s/\*/%/g if (@$filters[11]); |
378 |
$strcalc .= " AND monthname(old_issues.timestamp) like '" . @$filters[11]."'" if (@$filters[11]); |
379 |
@$filters[12]=~ s/\*/%/g if (@$filters[12]); |
380 |
$strcalc .= " AND year(old_issues.timestamp) like '" . @$filters[12] ."'" if ( @$filters[12] ); |
339 |
|
381 |
|
340 |
$strcalc .= " group by biblio.biblionumber"; |
382 |
$strcalc .= " group by biblio.biblionumber"; |
341 |
$strcalc .= ", $colfield" if ($column); |
383 |
$strcalc .= ", $colfield" if ($column); |
Lines 347-353
sub calculate {
Link Here
|
347 |
my $previous_col; |
389 |
my $previous_col; |
348 |
my %indice; |
390 |
my %indice; |
349 |
while (my @data = $dbcalc->fetchrow) { |
391 |
while (my @data = $dbcalc->fetchrow) { |
350 |
my ($row, $rank, $id, $col )=@data; |
392 |
my ($row, $rank, $id, $callnum, $ccode, $loc, $col )=@data; |
351 |
$col = "zzEMPTY" if (!defined($col)); |
393 |
$col = "zzEMPTY" if (!defined($col)); |
352 |
$indice{$col}=1 if (not($indice{$col})); |
394 |
$indice{$col}=1 if (not($indice{$col})); |
353 |
$table[$indice{$col}]->{$col}->{'name'}=$row; |
395 |
$table[$indice{$col}]->{$col}->{'name'}=$row; |
354 |
- |
|
|