loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.134, 2006/06/16 22:37:10	version 1.135, 2006/06/22 15:53:48
Line 330 sub date_setter {	Line 330 sub date_setter {
}	}
my $result = "\n<!-- $dname date setting form -->\n";	my $result = "\n<!-- $dname date setting form -->\n";
$result .= <<ENDJS;	$result .= <<ENDJS;
<script language="Javascript">	<script type="text/javascript">
function $dname\_checkday() {	function $dname\_checkday() {
var day = document.$formname.$dname\_day.value;	var day = document.$formname.$dname\_day.value;
var month = document.$formname.$dname\_month.value;	var month = document.$formname.$dname\_month.value;
Line 393 document.$formname.$dname\_year.value,	Line 393 document.$formname.$dname\_year.value,
}	}
</script>	</script>
ENDJS	ENDJS
$result .= ' <nobr>';	$result .= ' <span style="white-space: nowrap;">';
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};	my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >};
# Month	# Month
my @Months = qw/January February March April May June	my @Months = qw/January February March April May June
Line 455 ENDJS	Line 455 ENDJS
$result .= &mt('[_7]Select Date[_8]',$cal_link,'</a>');	$result .= &mt('[_7]Select Date[_8]',$cal_link,'</a>');
}	}
}	}
$result .= "</nobr>\n<!-- end $dname date setting form -->\n";	$result .= "</span>\n<!-- end $dname date setting form -->\n";
return $result;	return $result;
}	}