--- loncom/interface/printout.pl 2005/11/15 20:53:06 1.93 +++ loncom/interface/printout.pl 2006/04/08 07:06:35 1.96 @@ -25,9 +25,6 @@ # http://www.lon-capa.org/ # -BEGIN { - eval "use Apache2::compat();"; -}; use lib '/home/httpd/lib/perl'; use LONCAPA::loncgi; use File::Path; @@ -186,6 +183,8 @@ END @names_pack=split(/_ENDPERSON_/,$student_names); } +print "Return to last resource.

"; + my $figfile = $texfile; $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; my $duefile = $texfile; @@ -201,6 +200,7 @@ END my $noteps; my %prog_state; if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } + print('
'); foreach my $not_eps (@content_of_file) { chomp($not_eps); if ($not_eps ne '') { @@ -269,7 +269,6 @@ END my $ind=-1; my %prog_state; -print "Return to last resource.

"; if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Print Status','Class Print Status',$number_of_files,'inline','80'); } print "
"; my $num_files = @texfile; @@ -335,7 +334,10 @@ foreach $texfile (@texfile) { \%prog_state,$dvi_file); if ($tableofcontents eq 'yes') { &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", - "for $status_statement now LaTeXing file for table of contents", + "for $status_statement First LaTeX of file for table of contents", + \%prog_state,$dvi_file); + &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", + "for $status_statement Second LaTeX of file for table of contents", \%prog_state,$dvi_file); } #to create table of contents my $idxname=$name_file;