version 1.63, 2004/04/07 22:33:00
|
version 1.64, 2004/04/12 20:03:31
|
Line 392 sub get_date_from_form {
|
Line 392 sub get_date_from_form {
|
if (($tmpsec =~ /^\d+$/) && ($tmpsec >= 0) && ($tmpsec < 60)) { |
if (($tmpsec =~ /^\d+$/) && ($tmpsec >= 0) && ($tmpsec < 60)) { |
$sec = $tmpsec; |
$sec = $tmpsec; |
} |
} |
|
if (!defined($tmpsec) || $tmpsec eq '') { $sec = 0; } |
} |
} |
if (defined($ENV{'form.'.$dname.'_minute'})) { |
if (defined($ENV{'form.'.$dname.'_minute'})) { |
my $tmpmin = $ENV{'form.'.$dname.'_minute'}; |
my $tmpmin = $ENV{'form.'.$dname.'_minute'}; |
if (($tmpmin =~ /^\d+$/) && ($tmpmin >= 0) && ($tmpmin < 60)) { |
if (($tmpmin =~ /^\d+$/) && ($tmpmin >= 0) && ($tmpmin < 60)) { |
$min = $tmpmin; |
$min = $tmpmin; |
} |
} |
|
if (!defined($tmpmin) || $tmpmin eq '') { $min = 0; } |
} |
} |
if (defined($ENV{'form.'.$dname.'_hour'})) { |
if (defined($ENV{'form.'.$dname.'_hour'})) { |
my $tmphour = $ENV{'form.'.$dname.'_hour'}; |
my $tmphour = $ENV{'form.'.$dname.'_hour'}; |