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:
parent
5cba9339d1
commit
83090041e1
|
|
@ -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 '';
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue