[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Stats.pm [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/C4 Stats.pm [dev_week] |
Date: |
Tue, 11 Jul 2006 13:56:17 +0000 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 Stats.pm [dev_week],
Joshua Ferraro <=