loncom/homework/functionplotresponse.pm - diff

Return to functionplotresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/functionplotresponse.pm between versions 1.16 and 1.17

version 1.16, 2010/10/28 00:27:56	version 1.17, 2010/10/29 19:18:48
Line 107 sub init_script {	Line 107 sub init_script {
$script.="if (param=='applet_$id') { loaded_$id=true; }\n";	$script.="if (param=='applet_$id') { loaded_$id=true; }\n";
}	}
$script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)).	$script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)).
") { setTimeout('ggbInitAll()',20) }\n";	") { setTimeout('ggbInitAll()',20) }";
my $calls=join("\n",map { "ggbInit_$_();" } (@Apache::functionplotresponse::callscripts));	my $calls=join("\n",map { "ggbInit_$_();" } (@Apache::functionplotresponse::callscripts));
return (<<ENDGGBINIT);	return (<<ENDGGBINIT);
<script type="text/javascript">	<script type="text/javascript">
Line 119 function ggbOnInit(param) {	Line 119 function ggbOnInit(param) {
$script	$script
}	}
function ggbInitAll() {	function ggbInitAll() {
$calls;	$calls
}	}
// ]]>	// ]]>
</script>	</script>
Line 625 sub end_functionplotresponse {	Line 625 sub end_functionplotresponse {
}	}
# close the init script	# close the init script
$result.=&end_init_script();	$result.=&end_init_script();
	# register all splines in this response
	$result.='<input type="hidden" name="HWVAL_AllSplines_'.$internalid.'" value="'.
	join(',',keys(%Apache::functionplotresponse::splineorder)).'" />'."\n";
	foreach my $label (keys(%Apache::functionplotresponse::splineorder)) {
	$result.='<input type="hidden" name="HWVAL_SplineOrder_'.$internalid.'_'.$label.'" value="'.
	$Apache::functionplotresponse::splineorder{$label}.'" />'."\n";
	}
# generate the input fields	# generate the input fields
$result.=$Apache::functionplotresponse::inputfields;	$result.=$Apache::functionplotresponse::inputfields;
# actually start the <applet>-tag	# actually start the <applet>-tag

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.17