version 1.128, 2003/03/06 18:16:04
|
version 1.129, 2003/03/13 18:35:12
|
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); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($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 639 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, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
'last student '.$fullname); |
'last student '.$fullname); |
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin2($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($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') { |
Line 1223 sub handler {
|
Line 1223 sub handler {
|
my $r = shift; |
my $r = shift; |
|
|
# A hook for me to work without disturbing Alex. |
# A hook for me to work without disturbing Alex. |
if ($ENV{'form.jeremy'}) { |
if (!$ENV{'form.jeremy'}) { |
printWizard($r); |
printWizard($r); |
return OK; |
return OK; |
} |
} |