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

[albertel]

albertel		Mon Mar  3 16:53:15 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - adding status info to printing out whole class
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.126 loncom/interface/lonprintout.pm:1.127
--- loncom/interface/lonprintout.pm:1.126	Mon Mar  3 15:58:18 2003
+++ loncom/interface/lonprintout.pm	Mon Mar  3 16:53:15 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.126 2003/03/03 20:58:18 albertel Exp $
+# $Id: lonprintout.pm,v 1.127 2003/03/03 21:53:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -605,6 +605,7 @@
 	my %moreenv;
 	$moreenv{'form.textwidth'}=$LaTeXwidth;
 	&Apache::lonnet::appenv(%moreenv);
+	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin2($r,'Print Status','Class Print Status',$#students+1);
 	foreach my $person (@students) {
 	    my $current_output = ''; 
 	    my ($usersection,$username,$userdomain) = split /:/,$person;
@@ -638,7 +639,10 @@
 	    $result .= $current_output;
 	    &Apache::lonnet::delenv('form.counter');	    
 	    &Apache::lonxml::init_counter(); 
+	    &Apache::lonhtmlcommon::Increment_PrgWin2($r,\%prog_state,
+						    'last student '.$fullname);
 	}
+	&Apache::lonhtmlcommon::Close_PrgWin2($r,\%prog_state);
 	$result .= '\end{document}';
 	&Apache::lonnet::delenv('form.textwidth');
     } elsif ($choice eq 'Subdirectory print') {