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

was dailyreports.pl

Browse source
This commit is contained in:
chris 2000-01-17 21:43:12 +00:00
parent f3537fb458
commit 49e50241db
1 changed files with 52 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
stats.pl Executable file
View file

@ -0,0 +1,52 @@
#!/usr/bin/perl
#written 14/1/2000
#script to display reports
use C4::Stats;
use strict;
use Date::Manip;
use CGI;
use C4::Output;
my $input=new CGI;
my $time=$input->param('time');
print $input->header;
my $date;
my $date2;
if ($time eq 'yesterday'){
$date=ParseDate('yesterday');
$date2=ParseDate('today');
}
if ($time eq 'today'){
$date=ParseDate('today');
$date2=ParseDate('tomorrow');
}
$date=UnixDate($date,'%Y-%m-%d');
$date2=UnixDate($date2,'%Y-%m-%d');
my @payments=TotalPaid($date);
my $count=@payments;
my $total=0;
print mktablehdr;
print mktablerow(5,'white','Name','Type','Date/time','Amount');
for (my $i=0;$i<$count;$i++){
my $hour=substr($payments[$i]{'timestamp'},8,2);
my $min=substr($payments[$i]{'timestamp'},10,2);
my $sec=substr($payments[$i]{'timestamp'},12,2);
my $time="$hour:$min:$sec";
$payments[$i]{'amount'}*=-1;
$total+=$payments[$i]{'amount'};
print mktablerow(5,'white',"$payments[$i]{'firstname'} <b>$payments[$i]{'surname'}</b>"
,$payments[$i]{'accounttype'},"$payments[$i]{'date'} $time",$payments[$i]{'amount'},
$payments[$i]{'itemnumber'});
my @charges=getcharges($payments[$i]{'borrowernumber'},$payments[$i]{'timestamp'});
}
print mktableft;
print "<p><b>$total</b>";
my $issues=Count('issue',$date,$date2);
print "<p>Issues: $issues";
my $returns=Count('return',$date,$date2);
print "<p>Returns: $returns";