From 795aeaefffdea1e3aa20befe96cc1383f707caf9 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 12 Feb 2018 15:37:18 -0300 Subject: [PATCH] Bug 20185: Remove warnings from stats.print.pl This needs a full rewrite! Signed-off-by: Mark Tompsett Signed-off-by: Julian Maurice Signed-off-by: Jonathan Druart --- reports/stats.print.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/reports/stats.print.pl b/reports/stats.print.pl index 5763969609..0f03ac1c42 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 ){ -- 2.39.5