[Koha-cvs] CVS: koha/reports cat_issues_top.pl,1.4,1.5

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/reports
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24199/reports

Modified Files:
	cat_issues_top.pl 
Log Message:
Minor fix : Counting biblio and not items

Index: cat_issues_top.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/cat_issues_top.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** cat_issues_top.pl	30 Mar 2005 08:08:25 -0000	1.4
--- cat_issues_top.pl	31 Mar 2005 06:47:25 -0000	1.5
***************
*** 281,285 ****
  	
  # Processing average loanperiods
! 	$strcalc .= "SELECT biblio.title, COUNT(*) AS RANK, biblio.biblionumber AS ID";
  	$strcalc .= " , $colfield " if ($colfield);
  	$strcalc .= " FROM `issues`,borrowers,(items LEFT JOIN biblioitems ON biblioitems.biblioitemnumber=items.biblioitemnumber) LEFT JOIN biblio ON (biblio.biblionumber=items.biblionumber) WHERE issues.itemnumber=items.itemnumber AND issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
--- 281,285 ----
  	
  # Processing average loanperiods
! 	$strcalc .= "SELECT DISTINCT biblio.title, COUNT(biblio.biblionumber) AS RANK, biblio.biblionumber AS ID";
  	$strcalc .= " , $colfield " if ($colfield);
  	$strcalc .= " FROM `issues`,borrowers,(items LEFT JOIN biblioitems ON biblioitems.biblioitemnumber=items.biblioitemnumber) LEFT JOIN biblio ON (biblio.biblionumber=items.biblionumber) WHERE issues.itemnumber=items.itemnumber AND issues.borrowernumber=borrowers.borrowernumber and returndate is not null";
***************
*** 306,310 ****
  	$strcalc .= " AND year(issues.timestamp) like '" . @$filters[9] ."'" if ( @$filters[9] );
  	
! 	$strcalc .= " group by borrowers.borrowernumber";
  	$strcalc .= ", $colfield" if ($column);
  	$strcalc .= " order by ";
--- 306,310 ----
  	$strcalc .= " AND year(issues.timestamp) like '" . @$filters[9] ."'" if ( @$filters[9] );
  	
! 	$strcalc .= " group by biblio.biblionumber";
  	$strcalc .= ", $colfield" if ($column);
  	$strcalc .= " order by ";