--- loncom/interface/lonpickcode.pm	2004/04/24 08:31:57	1.2
+++ loncom/interface/lonpickcode.pm	2004/04/24 09:01:52	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a CODE from the list of possible CODEs
 #
-# $Id: lonpickcode.pm,v 1.2 2004/04/24 08:31:57 albertel Exp $
+# $Id: lonpickcode.pm,v 1.3 2004/04/24 09:01:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,8 +104,8 @@ ENDDOCUMENT
     $r->print(<<ENDSCRIPT);
 <script>
 function gochoose(newcode) {
-    opener.document.$ENV{'form.form'}.scan_CODE_selectedvalue.value=newcode;
-    var slct=opener.document.$ENV{'form.form'}.scan_CODE_resolution;
+    opener.document.$ENV{'form.form'}.scantron_CODE_selectedvalue.value=newcode;
+    var slct=opener.document.$ENV{'form.form'}.scantron_CODE_resolution;
     var i;
     for (i=0;i<slct.length;i++) {
         if (slct[i].value=='use_found') { slct[i].checked=true; }