--- loncom/interface/lonprintout.pm	2004/04/20 06:11:49	1.292
+++ loncom/interface/lonprintout.pm	2004/04/26 18:21:26	1.294
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.292 2004/04/20 06:11:49 albertel Exp $
+# $Id: lonprintout.pm,v 1.294 2004/04/26 18:21:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1222,7 +1222,7 @@ sub get_CODE {
     srand($seed);
     my $newcode;
     while(1) {
-	$newcode=int(rand($max));
+	$newcode=sprintf("%06d",int(rand($max)));
 	if (!exists($$all_codes{$newcode})) {
 	    $$all_codes{$newcode}=1;
 	    return &num_to_letters($newcode);
@@ -1583,6 +1583,7 @@ CHOOSE_STUDENTS
         my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
 	my $namechoice='<choice></choice>';
 	foreach my $name (@names) {
+	    if ($name =~ /^error: 2 /) { next; }
 	    $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
 	}
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1);
@@ -1637,8 +1638,16 @@ CHOOSE_STUDENTS1
 
 	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
   <state name="CHOOSE_ANON2" title="Select Students and Resources">
-    <message><hr width='33%' /><b>How many Anonymous exams to print?</b></message>
+    <nextstate>PAGESIZE</nextstate>
+    <message><hr width='33%' /><b>Number of anonymous assignments to print?</b></message>
     <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>
+    <message><br /><b>Names to store the CODEs under for later:</b></message>
+    <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
+    <message><hr width='33%' /></message>
+    <message><b>Reprint a set of saved CODEs:</b></message>
+    <dropdown variable="REUSE_OLD_CODES">
+        $namechoice
+    </dropdown>
     <message><hr width='33%' /></message>
     $resource_selector
   </state>