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>
This commit is contained in:
parent
216b0cff0d
commit
795aeaefff
1 changed files with 5 additions and 5 deletions
|
@ -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";
|
||||||
|
|
||||||
|
@ -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 ){
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue