[Koha-cvs] koha/C4 Stats.pm [dev_week]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/07/11 13:56:17

Modified files:
        C4             : Stats.pm 

Log message:
        sync with rel_2_2

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Stats.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.18&r2=1.18.6.1

Patches:
Index: Stats.pm
===================================================================
RCS file: /sources/koha/koha/C4/Stats.pm,v
retrieving revision 1.18
retrieving revision 1.18.6.1
diff -u -b -r1.18 -r1.18.6.1
--- Stats.pm    15 Dec 2003 10:53:47 -0000      1.18
+++ Stats.pm    11 Jul 2006 13:56:17 -0000      1.18.6.1
@@ -1,6 +1,6 @@
 package C4::Stats;
 
-# $Id: Stats.pm,v 1.18 2003/12/15 10:53:47 slef Exp $
+# $Id: Stats.pm,v 1.18.6.1 2006/07/11 13:56:17 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -91,7 +91,7 @@
        my ($time,$time2)address@hidden;
        $time2=$time unless $time2;
        my $dbh = C4::Context->dbh;
-       my $query="Select * from accountlines,borrowers where (accounttype = 
'Pay' or accounttype ='W')
+       my $query="Select * from accountlines,borrowers where (accounttype = 
'Pay' or accounttype ='W' or accounttype='C')
                                        and accountlines.borrowernumber = 
borrowers.borrowernumber";
        my @bind = ();
        if ($time eq 'today'){
@@ -109,14 +109,12 @@
        #    $query.=" and datetime > '$time'";
        #  }
        $query.=" order by timestamp";
-       #  print $query;
+         warn $query;
        my $sth=$dbh->prepare($query);
        $sth->execute(@bind);
        my @results;
-       my $i=0;
        while (my $data=$sth->fetchrow_hashref){
-               $results[$i]=$data;
-               $i++;
+               push @results,$data;
        }
        $sth->finish;
        #  print $query;