bug 2505: remove additional warning messages

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Galen Charlton 2009-09-05 19:50:51 -04:00 committed by Henri-Damien LAURENT
parent 5cba9339d1
commit 83090041e1
1 changed files with 7 additions and 1 deletions

View File

@ -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 '';
}
}
}