Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 20185: Remove warnings from stats.print.pl

Browse source 
This needs a full rewrite!

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-02-12 15:37:18 -03:00
parent 216b0cff0d
commit 795aeaefff
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
reports/stats.print.pl
View file

@ -61,8 +61,8 @@ if ($time2 ne ''){
$date2=ParseDate($time2); $date2=ParseDate($time2);
} }
my $date=UnixDate($date,'%Y-%m-%d'); $date=UnixDate($date,'%Y-%m-%d');
my $date2=UnixDate($date2,'%Y-%m-%d'); $date2=UnixDate($date2,'%Y-%m-%d');
#warn "MASON: DATE: $date, $date2"; #warn "MASON: DATE: $date, $date2";
@ -72,7 +72,7 @@ my @payments=TotalPaid($date,$date2);
my $count=@payments; my $count=@payments;
# print "MASON: number of payments=$count\n"; # print "MASON: number of payments=$count\n";
my $i=0; my $i = 0;
my $totalcharges=0; my $totalcharges=0;
my $totalcredits=0; my $totalcredits=0;
my $totalpaid=0; my $totalpaid=0;
@ -125,8 +125,8 @@ while ($i<$count ){
#get credits and append to the bottom of payments #get credits and append to the bottom of payments
my @credits=getcredits($date,$date2); my @credits=getcredits($date,$date2);
my $count=@credits; $count=@credits;
my $i=0; $i=0;
while ($i<$count ){ while ($i<$count ){