loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.64, 2004/04/12 20:03:31	version 1.65, 2004/04/16 15:06:56
Line 231 sub date_setter {	Line 231 sub date_setter {
}	}
}	}
# other potentially useful values: wkday,yrday,is_daylight_savings	# other potentially useful values: wkday,yrday,is_daylight_savings
my ($sec,$min,$hour,$mday,$month,$year)=('','','','','','');	my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','','');
if ($currentvalue) {	if ($currentvalue) {
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =	($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =
localtime($currentvalue);	localtime($currentvalue);
Line 327 ENDJS	Line 327 ENDJS
if ($includeempty) { $result.="<option value=''></option>"; }	if ($includeempty) { $result.="<option value=''></option>"; }
for (my $h = 0;$h<24;$h++) {	for (my $h = 0;$h<24;$h++) {
$result .= " <option value=\"$h\" ";	$result .= " <option value=\"$h\" ";
$result .= "selected " if ($hour == $h);	$result .= "selected " if (defined($hour) && $hour == $h);
$result .= "> ";	$result .= "> ";
my $timest='';	my $timest='';
if ($h == 0) {	if ($h == 0) {