--- 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;