Fixed bug where interval fields that were set to '0' displayed as '1'

This commit is contained in:
Andy Grundman 2003-06-26 01:41:29 +00:00
parent 0fda9559d6
commit b15d7e74f2

View file

@ -992,7 +992,7 @@ If you want to add anything special to this form element like javascript actions
sub interval {
my (%units, $output, $intervalValue, $unitsValue);
$intervalValue = $_[0]->{intervalValue} || 1;
$intervalValue = (defined $_[0]->{intervalValue}) ? $_[0]->{intervalValue} : 1;
$unitsValue = $_[0]->{unitsValue} || "seconds";
tie %units, 'Tie::IxHash';
%units = ('seconds'=>WebGUI::International::get(704),