|
Lines 298-304
sub calculate {
Link Here
|
| 298 |
my $strcalc ; |
298 |
my $strcalc ; |
| 299 |
|
299 |
|
| 300 |
# Processing average loanperiods |
300 |
# Processing average loanperiods |
| 301 |
$strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber) AS RANK, biblio.biblionumber AS ID"; |
301 |
$strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber) AS `RANK`, biblio.biblionumber AS ID"; |
| 302 |
$strcalc .= ", itemcallnumber as CALLNUM"; |
302 |
$strcalc .= ", itemcallnumber as CALLNUM"; |
| 303 |
$strcalc .= ", ccode as CCODE"; |
303 |
$strcalc .= ", ccode as CCODE"; |
| 304 |
$strcalc .= ", location as LOC"; |
304 |
$strcalc .= ", location as LOC"; |
|
Lines 346-352
sub calculate {
Link Here
|
| 346 |
|
346 |
|
| 347 |
$strcalc .= " group by biblio.biblionumber"; |
347 |
$strcalc .= " group by biblio.biblionumber"; |
| 348 |
$strcalc .= ", $colfield" if ($column); |
348 |
$strcalc .= ", $colfield" if ($column); |
| 349 |
$strcalc .= " order by RANK DESC"; |
349 |
$strcalc .= " order by `RANK` DESC"; |
| 350 |
$strcalc .= ", $colfield " if ($colfield); |
350 |
$strcalc .= ", $colfield " if ($colfield); |
| 351 |
|
351 |
|
| 352 |
my $dbcalc = $dbh->prepare($strcalc); |
352 |
my $dbcalc = $dbh->prepare($strcalc); |
| 353 |
- |
|
|