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

sakharuk lon-capa-cvs@mail.lon-capa.org
Thu, 17 Oct 2002 14:49:37 -0000


sakharuk		Thu Oct 17 10:49:37 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Prints axam assignments for a group of students.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.79 loncom/interface/lonprintout.pm:1.80
--- loncom/interface/lonprintout.pm:1.79	Thu Oct 17 10:42:58 2002
+++ loncom/interface/lonprintout.pm	Thu Oct 17 10:49:37 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.79 2002/10/17 14:42:58 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.80 2002/10/17 14:49:37 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -475,7 +475,10 @@
 	my $primary_sequence = '/res/'.$sequence[0]; 	
 	my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]); 
         #loop over students
-	my $flag_latex_header_remove = 'NO';  
+	my $flag_latex_header_remove = 'NO'; 
+	my %moreenv;
+	$moreenv{'form.textwidth'}=$LaTeXwidth;
+	&Apache::lonnet::appenv(%moreenv);
 	foreach my $person (@students) {
 	    my $current_output = ''; 
 	    my ($usersection,$username,$userdomain) = split /:/,$person;
@@ -504,8 +507,10 @@
 		$current_output = '\\vskip 3mm\noindent\parbox{\minipagewidth}{\noindent\fbox{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
 	    }
 	    $result .= $current_output;
+	    &Apache::lonnet::delenv('form.counter');
 	}
-	$result .= '\end{document}'; 
+	$result .= '\end{document}';
+	&Apache::lonnet::delenv('form.textwidth');
     } elsif ($choice eq 'Subdirectory print') {      
     #prints selected problems from the subdirectory 
 	$selectionmade = 6;