Browse Source

stopping writeoffs from printing

master
chris 20 years ago
parent
commit
ac5802b0f9
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      C4/Stats.pm

+ 4
- 2
C4/Stats.pm View File

@@ -152,7 +152,7 @@ sub TotalPaid {
} else {
$query.=" and date='$time'";
}
$query.=" order by timestamp";
# $query.=" order by timestamp";
my $sth=$dbh->prepare($query);
$sth->execute;
my @results;
@@ -163,6 +163,7 @@ sub TotalPaid {
}
$sth->finish;
$dbh->disconnect;
# print $query;
return(@results);
}

@@ -171,7 +172,8 @@ sub getcharges{
my $dbh=C4Connect;
my $timestamp2=$timestamp-1;
my $query="Select * from accountlines where borrowernumber=$borrowerno
and timestamp <= '$timestamp' and accounttype <> 'Pay'";
and timestamp <= '$timestamp' and accounttype <> 'Pay' and
accounttype <> 'W'";
my $sth=$dbh->prepare($query);
# print $query,"<br>";
$sth->execute;


Loading…
Cancel
Save