From 3ab36c2c935d8cdef5158147d659590b4015b53e Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Tue, 4 Dec 2018 14:58:35 +0000 Subject: [PATCH] Bug 15422: Consider partial copies needed as whole numbers Signed-off-by: Owen Leonard Signed-off-by: Katrin Fischer Signed-off-by: Martin Renvoize --- circ/reserveratios.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl index 1beb559217..b4b0b81229 100755 --- a/circ/reserveratios.pl +++ b/circ/reserveratios.pl @@ -22,6 +22,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Date::Calc qw/Today Add_Delta_YM/; +use POSIX qw( ceil ); use C4::Context; use C4::Output; @@ -154,7 +155,7 @@ $sth->execute(@query_params); my @reservedata; while ( my $data = $sth->fetchrow_hashref ) { my $thisratio = $data->{reservecount} / $data->{itemcount}; - my $ratiocalc = $data->{reservecount}/$ratio - $data->{itemcount}; + my $ratiocalc = ceil($data->{reservecount}/$ratio - $data->{itemcount}); $ratiocalc >= 1 or next; # TODO: tighter targeting -- get ratio limit into SQL using HAVING clause push( @reservedata, -- 2.39.5