--- loncom/interface/lonprintout.pm	2004/04/07 18:01:19	1.290
+++ loncom/interface/lonprintout.pm	2004/04/20 06:11:49	1.292
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.290 2004/04/07 18:01:19 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.292 2004/04/20 06:11:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1002,20 +1002,36 @@ ENDPART
 	 $result .= $print_array[0].'  \end{document}';
      } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon')     ||
 	      ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon')  ) { 
+	 my $cdom =$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+	 my $cnum =$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
 	 my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
 	 my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
-	 if ($helper->{'VARS'}->{'REMEBER_ANON_CODES'} != 1) {
-	     $code_name=undef;
-	 }
+	 my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};
 	 my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
 	 my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
 	 my $flag_latex_header_remove = 'NO'; 
 	 my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
 	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline');
 	 my $seed=time+($$<<16)+($$);
-	 my %allcodes;
-	 for (my $i=0;$i<$num_todo;$i++) {
-	     $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');
+	 my @allcodes;
+	 if ($old_name) {
+	     my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);
+	     @allcodes=split(',',$result{$old_name});
+	 } else {
+	     my %allcodes;
+	     for (my $i=0;$i<$num_todo;$i++) {
+		 $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');
+	     }
+	     if ($code_name) {
+		 &Apache::lonnet::put('CODEs',
+				      {$code_name =>join(',',keys(%allcodes))},
+				      $cdom,$cnum);
+	     }
+	     @allcodes=keys(%allcodes);
+	 }
+	 my $i=0;
+	 foreach my $code (sort(@allcodes)) {
+	     $moreenv{'CODE'}=&num_to_letters($code);
 	     my ($output,$fullname)=
 		 &print_resources($r,$helper,'anonymous',$type,\%moreenv,
 				  \@master_seq,$flag_latex_header_remove);
@@ -1023,13 +1039,7 @@ ENDPART
 	     &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
 				       &mt('last assignment').' '.$fullname);
 	     $flag_latex_header_remove = 'YES';
-	 }
-	 if ($code_name) {
-	     my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
-	     my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
-	     &Apache::lonnet::put('CODEs',
-				  { $code_name => join(',',keys(%allcodes)) },
-				  $cdom,$cnum);
+	     $i++;
 	 }
 	 &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
 	 $result .= $print_array[0].'  \end{document}';
@@ -1466,11 +1476,9 @@ sub printHelper {
     my $paramHash;
 
     if ($resourceTitle) {
-        push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (what you just saw on the screen)", 'current_document', 'PAGESIZE'];
+        push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('what you just saw on the screen').")", 'current_document', 'PAGESIZE'];
     }
 
-#    $r->print($helper->{VARS}->{'postdata'});
-
     # Useful filter strings
     my $isProblem = '($res->is_problem()||$res->contains_problem) ';
     $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
@@ -1492,9 +1500,9 @@ sub printHelper {
 	$helper->{VARS}->{'postdata'} &&
 	$helper->{VARS}->{'assignment'}) {
         # Allow problems from sequence
-        push @{$printChoices}, ["<b>Problems</b> in <b><i>$sequenceTitle</i></b>", 'map_problems', 'CHOOSE_PROBLEMS'];
+        push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('in')." <b><i>$sequenceTitle</i></b>", 'map_problems', 'CHOOSE_PROBLEMS'];
         # Allow all resources from sequence
-        push @{$printChoices}, ["<b>Resources</b> in <b><i>$sequenceTitle</i></b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
+        push @{$printChoices}, ["<b>".&mt('Resources')."</b> ".&mt('in')." <b><i>$sequenceTitle</i></b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
 
         my $helperFragment = <<HELPERFRAGMENT;
   <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
@@ -1541,8 +1549,8 @@ HELPERFRAGMENT
 ALL_PROBLEMS
 
 	if ($helper->{VARS}->{'assignment'}) {
-	    push @{$printChoices}, ["<b>Problems</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'problems_for_students', 'CHOOSE_STUDENTS'];
-	    push @{$printChoices}, ["<b>Problems</b> from <b><i>$sequenceTitle</i></b> for <b>anonymous students</b>", 'problems_for_anon', 'CHOOSE_ANON1'];
+	    push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('selected students')."</b>", 'problems_for_students', 'CHOOSE_STUDENTS'];
+	    push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('anonymous students')."</b>", 'problems_for_anon', 'CHOOSE_ANON1'];
 	}
 	my $resource_selector=<<RESOURCE_SELECTOR;
    <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
@@ -1569,27 +1577,35 @@ RESOURCE_SELECTOR
     $resource_selector
   </state>
 CHOOSE_STUDENTS
+
+	my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
+	my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+        my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
+	my $namechoice='<choice></choice>';
+	foreach my $name (@names) {
+	    $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
+	}
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1);
   <state name="CHOOSE_ANON1" title="Select Students and Resources">
     <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>
-    <choices variable="REMEBER_ANON_CODES" allowempty="1" multichoice="1">
-      <choice computer="1">
-        Should the CODEs used on this printing be remebered for later?
-      </choice>
-    </choices>
-    <message><b>Names to store the CODEs under for later:</b></message>
+    <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>
 CHOOSE_ANON1
 
 
 	if ($helper->{VARS}->{'assignment'}) {
-	    push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'resources_for_students', 'CHOOSE_STUDENTS1'];
-	    push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>anonymous students</b>", 'resources_for_anon', 'CHOOSE_ANON2'];
+	    push @{$printChoices}, ["<b>".&mt('Resources')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('selected students')."</b>", 'resources_for_students', 'CHOOSE_STUDENTS1'];
+	    push @{$printChoices}, ["<b>".&mt('Resources')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('anonymous students')."</b>", 'resources_for_anon', 'CHOOSE_ANON2'];
 	}
 	    
 
@@ -1631,7 +1647,7 @@ CHOOSE_ANON2
 
     # FIXME: That RE should come from a library somewhere.
     if ((((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) and $ENV{'request.role.adv'} and $subdir ne '/home/httpd/html/res/') {    
-        push @{$printChoices}, ["<b>Problems</b> from current subdirectory <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
+        push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from current subdirectory')." <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
 
         my $f = '$filename';
         my $xmlfrag = <<CHOOSE_FROM_SUBDIR;