--- loncom/interface/printout.pl 2003/07/24 14:57:54 1.31
+++ loncom/interface/printout.pl 2003/08/28 13:58:35 1.35
@@ -49,6 +49,13 @@ use Image::Magick;
my $path_file = $1.'/';
chdir $path_file;
system("latex $name_file 1>/dev/null 2>/dev/null");
+ if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents
+ my $idxname=$name_file;
+ $idxname=~s/\.tex$/\.idx/;
+ if ($selectionmade>=100) {
+ system("makeindex $idxname");
+ system("latex $name_file 1>/dev/null 2>/dev/null");
+ } #to create index
#Do we have a latex error in the log file?
my $logfilename = $texfile;
$logfilename =~ s/\.tex$/\.log/;
@@ -81,6 +88,24 @@ use Image::Magick;
print "$content_of_file[$i]
";
}
}
+ print "The link to ";
+ $logfilename=~s/\/home\/httpd//;
+ print "Your log file ";
+ print "\n";
+ #link tooriginal LaTeX file (included according Michael Hamlin desire)
+ my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";
+ my @tex_content_of_file = <$tex_temporary_file>;
+ close $tex_temporary_file;
+ my $body_tex_file = join(' ',@tex_content_of_file);
+ $texfile =~ s/\.tex$/aaaaa\.html/;
+ $tex_temporary_file = IO::File->new('>'.$texfile);
+ print $tex_temporary_file '
'.$body_tex_file.''."\n"; + print "
'.$body_tex_file.''."\n"; + print "