loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2009/02/26 16:17:29	version 1.79, 2009/04/04 21:47:40
Line 415 sub picklink {	Line 415 sub picklink {

sub dialscript {	sub dialscript {
return (<<ENDDIA);	return (<<ENDDIA);
<script language="Javascript">	<script type="text/javascript" language="JavaScript">
function dialin(day,month,year) {	function dialin(day,month,year) {
opener.document.$env{'form.formname'}.$env{'form.element'}\_year.value=year;	opener.document.$env{'form.formname'}.$env{'form.element'}\_year.value=year;
var slct=opener.document.$env{'form.formname'}.$env{'form.element'}\_month;	var slct=opener.document.$env{'form.formname'}.$env{'form.element'}\_month;
Line 517 sub handler {	Line 517 sub handler {

# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen
my $js = <<ENDDOCUMENT;	my $js = <<ENDDOCUMENT;
<script type="text/javascript">	<script type="text/javascript" language="JavaScript">

function trysubmit() {	function trysubmit() {
document.anno.action.value="new";	document.anno.action.value="new";
Line 590 ENDDOCUMENT	Line 590 ENDDOCUMENT
}	}
}	}
$r->print(	$r->print(
'<br /><input type="submit" name="serveraction" value="'.&mt('Post').'"></form><hr />');	'<br /><input type="submit" name="serveraction" value="'.&mt('Post').'" /></form><hr />');
}	}
if ($allowed) {	if ($allowed) {
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};	my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};