gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

&getcredits now returning 'BAY' and 'WORK' type credits too.

This commit is contained in:
szrj1m 2005-08-22 01:05:49 +00:00
parent 88008606f5
commit a70de3cbde
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C4/Stats.pm
View File

@ -178,10 +178,10 @@ sub getcredits{
my $timestamp = $a.$b.$c.$padding;
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 $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;
my @results;