loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2003/06/11 14:20:29	version 1.25, 2003/06/19 15:02:37
Line 252 sub get_date_from_form {	Line 252 sub get_date_from_form {
$year = $tmpyear - 1900;	$year = $tmpyear - 1900;
}	}
}	}
	if (($year<70) \|\| ($year>137)) { return undef; }
if (eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {	if (eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {
return &timelocal($sec,$min,$hour,$day,$month,$year);	return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {	} else {
Line 719 sub Increment_PrgWin {	Line 720 sub Increment_PrgWin {
my $min = int($time_est/60);	my $min = int($time_est/60);
my $sec = $time_est % 60;	my $sec = $time_est % 60;
$time_est = $min.' minutes';	$time_est = $min.' minutes';
if ($sec > 1) {	if ($min < 10) {
$time_est.= ', '.$sec.' seconds';	if ($sec > 1) {
} elsif ($sec > 0) {	$time_est.= ', '.$sec.' seconds';
$time_est.= ', '.$sec.' second';	} elsif ($sec > 0) {
}	$time_est.= ', '.$sec.' second';
	}
	}
} else {	} else {
$time_est .= ' seconds';	$time_est .= ' seconds';
}	}