loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.126, 2003/03/03 20:58:18	version 1.127, 2003/03/03 21:53:15
Line 605 ENDPART	Line 605 ENDPART
my %moreenv;	my %moreenv;
$moreenv{'form.textwidth'}=$LaTeXwidth;	$moreenv{'form.textwidth'}=$LaTeXwidth;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin2($r,'Print Status','Class Print Status',$#students+1);
foreach my $person (@students) {	foreach my $person (@students) {
my $current_output = '';	my $current_output = '';
my ($usersection,$username,$userdomain) = split /:/,$person;	my ($usersection,$username,$userdomain) = split /:/,$person;
Line 638 ENDPART	Line 639 ENDPART
$result .= $current_output;	$result .= $current_output;
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_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}';	$result .= '\end{document}';
&Apache::lonnet::delenv('form.textwidth');	&Apache::lonnet::delenv('form.textwidth');
} elsif ($choice eq 'Subdirectory print') {	} elsif ($choice eq 'Subdirectory print') {