--- loncom/interface/lonprintout.pm	2003/03/03 20:58:18	1.126
+++ loncom/interface/lonprintout.pm	2003/03/03 21:53:15	1.127
@@ -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 @@ ENDPART
 	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 @@ ENDPART
 	    $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') {