--- loncom/interface/printout.pl 2006/06/19 22:30:15 1.103 +++ loncom/interface/printout.pl 2006/06/20 09:39:47 1.104 @@ -234,7 +234,8 @@ print "Return $eps_f"; # Debugging @@ -728,6 +729,9 @@ sub repaginate { my @pages_in_student; # For each student his/her initial page count. my $max_pages = 0; # Pages in 'longest' student. my $page_number = 0; + &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, + "Counting pages for student: ".$student_number+1); + while ($line = ) { # Check for total pages (%%Pages:) @@ -756,7 +760,9 @@ sub repaginate { if ($line =~ /ENDOFSTUDENTSTAMP/) { $pages_in_student[$student_number] = $page_number; $student_number++; - + &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, + "Counting pages for student: ".$student_number+1); + if ($page_number > $max_pages) { $max_pages = $page_number; } @@ -789,6 +795,8 @@ sub repaginate { $student_number = 0; # first student... + &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, + "Repaginating student ".$student_number+1); while (my $line = ) { if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") { @@ -805,6 +813,8 @@ sub repaginate { } $student_number++; + &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, + "Repaginating student ".$student_number+1); } else { print LATEXOUT $line;