loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.69, 2004/09/09 15:30:49	version 1.70, 2004/11/13 08:25:41
Line 226 foreach $texfile (@texfile) {	Line 226 foreach $texfile (@texfile) {
if ($whereitbegins!=-1 and $whereitends!=-1) {	if ($whereitbegins!=-1 and $whereitends!=-1) {
print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";	print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."<br /><br />";
}	}
print "Here are the error messages in the LaTeX log file</br><br />";	print "Here are the error messages in the LaTeX log file</br><br /><pre>";
my $sygnal = 0;	my $sygnal = 0;
for (my $i=0;$i<=$#content_of_file;$i++) {	for (my $i=0;$i<=$#content_of_file;$i++) {
if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {	if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
Line 236 foreach $texfile (@texfile) {	Line 236 foreach $texfile (@texfile) {
$sygnal = 0;	$sygnal = 0;
}	}
if ($sygnal) {	if ($sygnal) {
print "$content_of_file[$i]<br />";	print "$content_of_file[$i]";
}	}
}	}
	print "</pre>\n";
if ($advans_role) {	if ($advans_role) {
print "<b><big>The link to ";	print "<b><big>The link to ";
$logfilename=~s/\/home\/httpd//;	$logfilename=~s/\/home\/httpd//;