From 83090041e1372fd9ec9018ee42441d1279366cae Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmcharlt@gmail.com>
Date: Sat, 5 Sep 2009 19:50:51 -0400
Subject: [PATCH] bug 2505: remove additional warning messages

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
---
 tools/overduerules.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index e14d1d8859..a7d65102ad 100755
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -90,7 +90,13 @@ if ($op eq 'save') {
                     my $type = $1; # data type
                     my $num = $2; # From 1 to 3
                     my $bor = $3; # borrower category
-                    $temphash{$bor}->{"$type$num"}=$input->param("$key") if (($input->param("$key") ne "") or ($input->param("$key")>0));
+                    my $value = $input->param($key);
+                    if ($type eq 'delay') {
+                        $temphash{$bor}->{"$type$num"} = ($value =~ /^\d+$/ && int($value) > 0) ? int($value) : '';
+                    } else {
+                        # type is letter
+                        $temphash{$bor}->{"$type$num"} = $value if $value ne '';
+                    }
             }
     }
 
-- 
2.39.5