loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.119, 2005/10/11 21:16:37	version 1.120, 2005/10/11 21:27:44
Line 1644 sub render {	Line 1644 sub render {
$result .= "</select> :\n";	$result .= "</select> :\n";

$result .= "<select $onclick name='${var}minute'>\n";	$result .= "<select $onclick name='${var}minute'>\n";
for my $i ((0,15,30,45,59,undef,1..59)) {	my $selected=0;
	for my $i ((0,15,30,45,59,undef,0..59)) {
my $printedMinute = $i;	my $printedMinute = $i;
if (defined($i) && $i < 10) {	if (defined($i) && $i < 10) {
$printedMinute = "0" . $printedMinute;	$printedMinute = "0" . $printedMinute;
}	}
if ($date->min == $i) {	if (!$selected && $date->min == $i) {
$result .= "<option selected='selected'>";	$result .= "<option selected='selected'>";
	$selected=1;
} else {	} else {
$result .= "<option>";	$result .= "<option>";
}	}