Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

more reports

Browse source
This commit is contained in:
chris 1999-11-12 01:17:20 +00:00
parent 75ae5fe5c8
commit 06f7ec1e0a
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
C4/Stats.pm
View file

@ -125,8 +125,18 @@ sub Overdues{
}
sub TotalOwing{
my ($type)=@_;
my $dbh=C4Connect;
my $query="Select sum(amountoutstanding) from accountlines";
if ($type eq 'fine'){
$query=$query." where accounttype='F'";
}
my $sth=$dbh->prepare($query);
$sth->execute;
my $total=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($total->{'sum'});
}
END { } # module clean-up code here (global destructor)