loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2002/08/06 16:11:05	version 1.16, 2002/08/12 20:01:08
Line 73 use Image::Magick;	Line 73 use Image::Magick;
print "\n";	print "\n";
} else {	} else {
print "<h1>LaTeX could not successfully parse your tex file.</h1>";	print "<h1>LaTeX could not successfully parse your tex file.</h1>";
print "<h2>Probably, you have errors in it.</h2>";	print "<h2>It probably has errors in it.</h2>";
my $logfilename = $texfile;	my $logfilename = $texfile;
$logfilename =~ s/\.tex$/\.log/;	$logfilename =~ s/\.tex$/\.log/;
if (-e $logfilename) {	if (-e $logfilename) {
#if dvi file does not exist = LaTeX failed to parse tex file	#if dvi file does not exist = LaTeX failed to parse tex file
print "To give you a clue we show you a few lines from the LaTeX log file</br>";	print "Here are the error messages in the LaTeX log file</br>";
my $temporary_file=IO::File->new($logfilename) \|\| die "Couldn't open file for reading: $!\n";	my $temporary_file=IO::File->new($logfilename) \|\| die "Couldn't open file for reading: $!\n";
my @content_of_file = <$temporary_file>;	my @content_of_file = <$temporary_file>;
close $temporary_file;	close $temporary_file;