loncom/interface/lonpickcode.pm - diff

Return to lonpickcode.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2004/04/22 22:57:53	version 1.2, 2004/04/24 08:31:57
Line 94 ENDDOCUMENT	Line 94 ENDDOCUMENT
'form','scantron_format',	'form','scantron_format',
'scantron_CODElist']);	'scantron_CODElist']);

if (!	if (!($ENV{'request.course.id'}) &&
($ENV{'request.course.id'}) &&
(&Apache::lonnet::allowed('usc',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('usc',$ENV{'request.course.id'}))) {
$r->print('<body>Access not allowed.</body>');	$r->print('<body>Access not allowed.</body>');
return OK;	return OK;
Line 104 ENDDOCUMENT	Line 103 ENDDOCUMENT
$r->print(&Apache::loncommon::bodytag("Selecting a CODE"));	$r->print(&Apache::loncommon::bodytag("Selecting a CODE"));
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
<script>	<script>
function gochoose(uname,udom) {	function gochoose(newcode) {
opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname;	opener.document.$ENV{'form.form'}.scan_CODE_selectedvalue.value=newcode;
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'};	var slct=opener.document.$ENV{'form.form'}.scan_CODE_resolution;
var i;	var i;
for (i=0;i<slct.length;i++) {	for (i=0;i<slct.length;i++) {
if (slct.options[i].value==udom) { slct.selectedIndex=i; }	if (slct[i].value=='use_found') { slct[i].checked=true; }
}	}
self.close();	self.close();
}	}