[Koha-cvs] Changes to koha/reports/issues_stats.pl [rel_2_2]

[Henri-Damien LAURENT]

Index: koha/reports/issues_stats.pl
diff -u koha/reports/issues_stats.pl:1.7.2.5 
koha/reports/issues_stats.pl:1.7.2.6
--- koha/reports/issues_stats.pl:1.7.2.5        Mon Nov 21 17:12:04 2005
+++ koha/reports/issues_stats.pl        Mon Nov 28 10:49:24 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: issues_stats.pl,v 1.7.2.5 2005/11/21 17:12:04 hdl Exp $
+# $Id: issues_stats.pl,v 1.7.2.6 2005/11/28 10:49:24 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -447,13 +447,13 @@
                $strcalc .= "(COUNT(DISTINCT borrowers.borrowernumber))" ;
        }
        if ($process ==3){
-               $strcalc .= "(COUNT(DISTINCT itemnumber))" ;
+               $strcalc .= "(COUNT(DISTINCT issues.itemnumber))" ;
        }
        if ($process ==4){
                my $rqbookcount = $dbh->prepare("SELECT count(*) FROM items");
                $rqbookcount->execute;
                my ($bookcount) = $rqbookcount->fetchrow;
-               $strcalc .= "100*(COUNT(DISTINCT itemnumber))/ $bookcount " ;
+               $strcalc .= "100*(COUNT(DISTINCT issues.itemnumber))/ 
$bookcount " ;
        }
        $strcalc .= "FROM statistics,borrowers,issues where 
(statistics.borrowernumber=borrowers.borrowernumber) and 
issues.borrowernumber=borrowers.borrowernumber and 
issues.itemnumber=statistics.itemnumber ";