[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)=@_;
 	$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;