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

script to print out daily stats

Browse source
This commit is contained in:
chris 2000-01-13 20:38:44 +00:00
parent 4466d60db3
commit d537ea7552
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
dailyreport.pl Executable file
View file

@ -0,0 +1,23 @@
#!/usr/bin/perl
#written 14/1/2000
#script to display reports
use C4::Stats;
use strict;
use Date::Manip;
use CGI;
my $input=new CGI;
print $input->header;
my $date=ParseDate('yesterday');
$date=UnixDate($date,'%Y-%m-%d');
my @payments=TotalPaid($date);
my $count=@payments;
for (my $i=0;$i<$count;$i++){
$payments[$i]{'amount'}*=-1;
print "$payments[$i]{'surname'} $payments[$i]{'firstname'} $payments[$i]{'accounttype'} $payments[$i]{'date'} $payments[$i]{'amount'}
<br>";
}