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(); |
} |
} |