--- loncom/interface/lonprintout.pm	2006/03/15 22:11:04	1.431
+++ loncom/interface/lonprintout.pm	2006/03/21 18:43:49	1.432
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.431 2006/03/15 22:11:04 albertel Exp $
+# $Id: lonprintout.pm,v 1.432 2006/03/21 18:43:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2302,8 +2302,16 @@ CHOOSE_STUDENTS
 	    if ($code =~ /^[A-Z]+$/) { # Alpha code
 		$choice = &letters_to_num($code);
 	    }
-	    $code_selection .= '   <choice computer="'.$choice.'">'.$code."</choice>\n";
+	    push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
 	}
+	$code_selection .=
+'   
+      <exec>
+        push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
+      </exec>
+    '.$/;
+
+	
 	open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
 	my $codechoice='';
 	foreach my $line (<FH>) {
@@ -2358,6 +2366,12 @@ CHOOSE_STUDENTS
         </validator>
     </string>
     <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
+    <message><b>Choose single code from list</b></message>
+    <message></td><td></message>
+    <choices variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
+        $code_selection
+    </choices>
+    <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
     <message><b>Reprint a set of saved CODEs:</b></message>
     <message></td><td></message>
     <dropdown variable="REUSE_OLD_CODES">
@@ -2464,6 +2478,12 @@ CHOOSE_STUDENTS1
         </validator>
     </string>
     <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
+    <message><b>Choose single code from list</b></message>
+    <message></td><td></message>
+    <dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
+        $code_selection
+    </dropdown>
+    <message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
     <message><b>Reprint a set of saved CODEs:</b></message>
     <message></td><td></message>
     <dropdown variable="REUSE_OLD_CODES">