[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[albertel]

albertel		Mon Apr 26 14:21:26 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Anon print for resources now works
  - when no saved CODES exist don't show the 'no db to tie' error message
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.293 loncom/interface/lonprintout.pm:1.294
--- loncom/interface/lonprintout.pm:1.293	Thu Apr 22 18:59:11 2004
+++ loncom/interface/lonprintout.pm	Mon Apr 26 14:21:26 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.293 2004/04/22 22:59:11 albertel Exp $
+# $Id: lonprintout.pm,v 1.294 2004/04/26 18:21:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1583,6 +1583,7 @@
         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 @@
 
 	&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>