[Koha-cvs] CVS: koha/C4 Stats.pm,1.20,1.21

[Mason James]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14704

Modified Files:
        Stats.pm 
Log Message:
&getcredits now returning 'BAY' and 'WORK' type credits too.


Index: Stats.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Stats.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** Stats.pm    19 Aug 2005 00:38:33 -0000      1.20
--- Stats.pm    22 Aug 2005 01:05:49 -0000      1.21
***************
*** 179,186 ****
          my $timestamp2 = $x.$y.$z.$padding;
  
!         my $sth;
! 
!         $sth=$dbh->prepare("Select * from accountlines where (accounttype =  
'CR' or accounttype = 'LR') and timestamp >=? and timestamp <?");
!         $sth->execute($timestamp,$timestamp2);
  
          my $i=0;
--- 179,186 ----
          my $timestamp2 = $x.$y.$z.$padding;
  
!         my $sth=$dbh->prepare("Select * from accountlines,borrowers where 
(((accounttype = 'LR')  or (accounttype <> 'Pay'))
!                                    and amount < 0  and 
accountlines.borrowernumber = borrowers.borrowernumber
!                                    and timestamp >=?  and timestamp <?)");
!         $sth->execute($timestamp, $timestamp2);
  
          my $i=0;