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.122, 2005/10/11 22:05:20
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>";
}	}
Line 1659 sub render {	Line 1661 sub render {
$result .= "</select>\n";	$result .= "</select>\n";
}	}
if ($self->{'anytime'}) {	if ($self->{'anytime'}) {
$result.=(<<CHECK);	$result.=(<<CHECK);
<script type="text/javascript">	<script type="text/javascript">
// <!--	// <!--
function updateCheck(form,name,value) {	function updateCheck(form,name,value) {
Line 1669 sub render {	Line 1671 sub render {
// -->	// -->
</script>	</script>
CHECK	CHECK

$result.=" or <label><input type='checkbox' ";	$result.=" or <label><input type='checkbox' ";
if ($anytime) {	if ($anytime) {
$result.=' checked="checked" '	$result.=' checked="checked" '