From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Mon, 12 Feb 2018 18:37:18 +0000 (-0300)
Subject: Bug 20185: Remove warnings from stats.print.pl
X-Git-Tag: v18.05.00-rc1~851
X-Git-Url: http://git.equinoxoli.org/?p=koha.git;a=commitdiff_plain;h=795aeaefffdea1e3aa20befe96cc1383f707caf9

Bug 20185: Remove warnings from stats.print.pl

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>
---

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