diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl index 9810e3c42c..418b57c591 100755 --- a/circ/reserveratios.pl +++ b/circ/reserveratios.pl @@ -98,13 +98,7 @@ my $include_aqorders_qty_join = my $nfl_comparison = $include_ordered ? '<=' : '='; my $sus_comparison = $include_suspended ? '<=' : '<'; -my $strsth = "SELECT reservedate, - reserves.borrowernumber as borrowernumber, - reserves.biblionumber, - reserves.branchcode as branch, - items.holdingbranch, - items.itemcallnumber, - items.itemnumber, +my $strsth = "SELECT reserves.biblionumber, GROUP_CONCAT(DISTINCT items.itemcallnumber ORDER BY items.itemnumber SEPARATOR '|') as listcall, GROUP_CONCAT(DISTINCT homebranch @@ -117,8 +111,6 @@ my $strsth = "SELECT reservedate, ORDER BY items.itemnumber SEPARATOR '|') as l_itype, GROUP_CONCAT(DISTINCT items.ccode ORDER BY items.ccode SEPARATOR '|') as l_ccode, - - reserves.found, biblio.title, biblio.subtitle, biblio.medium, @@ -142,7 +134,10 @@ if ( C4::Context->preference('IndependentBranches') ) { push @query_params, C4::Context->userenv->{'branch'}; } -$strsth .= " GROUP BY reserves.biblionumber ORDER BY reservecount DESC"; +$strsth .= " GROUP BY reserves.biblionumber, biblio.title, biblio.subtitle, + biblio.medium, biblio.part_number, biblio.part_name, biblio.author + ORDER BY reservecount DESC +"; $template->param( sql => $strsth ); my $sth = $dbh->prepare($strsth); @@ -156,22 +151,15 @@ while ( my $data = $sth->fetchrow_hashref ) { push( @reservedata, { - reservedate => $data->{reservedate}, - priority => $data->{priority}, - name => $data->{borrower}, title => $data->{title}, subtitle => $data->{subtitle}, medium => $data->{medium}, part_number => $data->{part_number}, part_name => $data->{part_name}, author => $data->{author}, - itemnum => $data->{itemnumber}, biblionumber => $data->{biblionumber}, - holdingbranch => $data->{holdingbranch}, homebranch_list => [ split( '\|', $data->{homebranch_list} ) ], holdingbranch_list => [ split( '\|', $data->{holdingbranch_list} ) ], - branch => $data->{branch}, - itemcallnumber => $data->{itemcallnumber}, location => [ split( '\|', $data->{l_location} ) ], itype => [ split( '\|', $data->{l_itype} ) ], ccode => [ split( '\|', $data->{l_ccode} ) ],