@@ -, +, @@ --- misc/cronjobs/longoverdue.pl | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) --- a/misc/cronjobs/longoverdue.pl +++ a/misc/cronjobs/longoverdue.pl @@ -317,11 +317,11 @@ sub longoverdue_sth { return C4::Context->dbh->prepare($query); } -my @holidays_by_branch; - sub get_number_of_holidays { my ( $start_date, $end_date ) = @_; + my @holidays_by_branch; + $start_date = dt_from_string($start_date); $end_date = dt_from_string($end_date); @@ -421,7 +421,7 @@ foreach my $startrange (sort keys %$lost) { my ($date2) = bounds( $endrange); if ( C4::Context->preference( 'LongOverdueNoticeCalendar' ) ) { - get_number_of_holidays( $date2, $date1 ); + my $holidays_by_branch = get_number_of_holidays( $date2, $date1 ); foreach my $branch ( @holidays_by_branch ) { @@ -436,13 +436,13 @@ foreach my $startrange (sort keys %$lost) { $sth_items->execute($startrange, $endrange_with_holidays, $lostvalue); } } else { - - # print "\nRange ", ++$i, "\nDue $startrange - $endrange days ago ($date2 to $date1), lost => $lostvalue\n" if($verbose); - $verbose and - printf "\nRange %s\nDue %3s - %3s days ago (%s to %s), lost => %s\n", ++$i, - $startrange, $endrange, $date2, $date1, $lostvalue; - $sth_items->execute($startrange, $endrange, $lostvalue); + # print "\nRange ", ++$i, "\nDue $startrange - $endrange days ago ($date2 to $date1), lost => $lostvalue\n" if($verbose); + $verbose and + printf "\nRange %s\nDue %3s - %3s days ago (%s to %s), lost => %s\n", ++$i, + $startrange, $endrange, $date2, $date1, $lostvalue; + $sth_items->execute($startrange, $endrange, $lostvalue); } + $count=0; ITEM: while (my $row=$sth_items->fetchrow_hashref) { if( $filter_borrower_categories ) { @@ -466,6 +466,7 @@ foreach my $startrange (sort keys %$lost) { } $count++; } + push @report, { startrange => $startrange, endrange => $endrange, --