loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.227, 2009/07/14 17:56:13	version 1.228, 2009/08/03 16:34:16
Line 505 ENDJS	Line 505 ENDJS
unshift(@Months,'If you can read this an error occurred');	unshift(@Months,'If you can read this an error occurred');
if ($includeempty) { $monthselector.="<option value=''></option>"; }	if ($includeempty) { $monthselector.="<option value=''></option>"; }
for(my $m = 1;$m <=$#Months;$m++) {	for(my $m = 1;$m <=$#Months;$m++) {
$monthselector .= qq{ <option value="$m" };	$monthselector .= qq{ <option value="$m"};
$monthselector .= "selected " if ($m-1 eq $month);	$monthselector .= ' selected="selected"' if ($m-1 eq $month);
$monthselector .= '> '.&mt($Months[$m]).' </option>';	$monthselector .= '> '.&mt($Months[$m]).' </option>'."\n";
}	}
$monthselector.= ' </select>';	$monthselector.= ' </select>';
# Day	# Day
Line 520 ENDJS	Line 520 ENDJS
$hourselector.=qq{<option value=''></option>};	$hourselector.=qq{<option value=''></option>};
}	}
for (my $h = 0;$h<24;$h++) {	for (my $h = 0;$h<24;$h++) {
$hourselector .= qq{<option value="$h" };	$hourselector .= qq{<option value="$h"};
$hourselector .= "selected " if (defined($hour) && $hour == $h);	$hourselector .= ' selected="selected"' if (defined($hour) && $hour == $h);
$hourselector .= ">";	$hourselector .= ">";
my $timest='';	my $timest='';
if ($h == 0) {	if ($h == 0) {