--- loncom/interface/printout.pl 2005/10/31 21:48:07 1.92 +++ loncom/interface/printout.pl 2005/12/15 18:41:21 1.94 @@ -25,6 +25,9 @@ # http://www.lon-capa.org/ # +BEGIN { + eval "use Apache2::compat();"; +}; use lib '/home/httpd/lib/perl'; use LONCAPA::loncgi; use File::Path; @@ -183,6 +186,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; @@ -198,6 +203,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 '') { @@ -266,7 +272,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;