--- loncom/interface/lonpickcode.pm 2004/04/22 22:57:53 1.1 +++ loncom/interface/lonpickcode.pm 2004/04/24 08:31:57 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a CODE from the list of possible CODEs # -# $Id: lonpickcode.pm,v 1.1 2004/04/22 22:57:53 albertel Exp $ +# $Id: lonpickcode.pm,v 1.2 2004/04/24 08:31:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -94,8 +94,7 @@ ENDDOCUMENT 'form','scantron_format', 'scantron_CODElist']); - if (! - ($ENV{'request.course.id'}) && + if (!($ENV{'request.course.id'}) && (&Apache::lonnet::allowed('usc',$ENV{'request.course.id'}))) { $r->print('Access not allowed.'); return OK; @@ -104,12 +103,12 @@ ENDDOCUMENT $r->print(&Apache::loncommon::bodytag("Selecting a CODE")); $r->print(< -function gochoose(uname,udom) { - opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname; - var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; +function gochoose(newcode) { + opener.document.$ENV{'form.form'}.scan_CODE_selectedvalue.value=newcode; + var slct=opener.document.$ENV{'form.form'}.scan_CODE_resolution; var i; for (i=0;i