loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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