disallow division by zero in hold ratio report

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl
index 2ec48eb..b45bab0 100755 (executable)
--- a/circ/reserveratios.pl
+++ b/circ/reserveratios.pl
@@ -90,9 +90,12 @@ if (!defined($startdate) or $startdate eq "") {
 if (!defined($enddate) or $enddate eq "") {
        $enddate = format_date($todaysdate);
 }
-if (!defined($ratio)  or $ratio eq "") {
+if (!defined($ratio)  or $ratio eq "" or $ratio !~ /^\s*\d+\s*$/ ) {
        $ratio = 3;
 }
+if ($ratio == 0) {
+    $ratio = 1; # prevent division by zero
+}
 
 my $dbh    = C4::Context->dbh;
 my ($sqlorderby, $sqldatewhere) = ("","");