[Koha-cvs] CVS: koha stats2.pl,1.4,1.4.2.1

[MJ Ray]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv13910

Modified Files:
      Tag: rel_2_0
	stats2.pl 
Log Message:
DBI call fix for bug 662.

Index: stats2.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats2.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** stats2.pl	13 Oct 2002 07:35:23 -0000	1.4
--- stats2.pl	8 Jan 2004 17:13:19 -0000	1.4.2.1
***************
*** 63,67 ****
  
  my $dbh = C4::Context->dbh;
! my $query="select *
  from accountlines,accountoffsets,borrowers where
  accountlines.borrowernumber=accountoffsets.borrowernumber and
--- 63,67 ----
  
  my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("select *
  from accountlines,accountoffsets,borrowers where
  accountlines.borrowernumber=accountoffsets.borrowernumber and
***************
*** 69,75 ****
  =accountoffsets.offsetaccount) and accountlines.timestamp >=20000621000000
  and borrowers.borrowernumber=accountlines.borrowernumber
! group by accountlines.borrowernumber,accountlines.accountno";
! my $sth=$dbh->prepare($query);
! $sth->execute;
  
  
--- 69,74 ----
  =accountoffsets.offsetaccount) and accountlines.timestamp >=20000621000000
  and borrowers.borrowernumber=accountlines.borrowernumber
! group by accountlines.borrowernumber,accountlines.accountno");
! $sth->execute();