From fce5a2f10e90f4d1c94589081fd97278233410cd Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Sat, 5 Sep 2009 19:50:51 -0400 Subject: [PATCH] bug 2505: remove additional warning messages Signed-off-by: Galen Charlton --- 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.2