--- loncom/interface/printout.pl 2005/08/04 21:26:23 1.89 +++ loncom/interface/printout.pl 2005/09/12 10:16:52 1.90 @@ -381,6 +381,7 @@ foreach $texfile (@texfile) { print "It probably has errors in it.
"; print "With very high probability this error occured in ".$badtext."

"; print "Here are the error messages in the LaTeX log file
";
+
 	      my $sygnal = 0;
 	      for (my $i=0;$i<=$#content_of_file;$i++) {
 		  if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
@@ -412,6 +413,9 @@ foreach $texfile (@texfile) {
 	      $texfile=~s/\/home\/httpd//;
 	      print "Your original LaTeX file ";
 	      print "\n";
+	      my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");
+	      print ("$help_text");
+
 	  } else {		# Student role...
 	      #  at this point:
 	      #    $body_log_file - contains the log file.
@@ -423,7 +427,10 @@ foreach $texfile (@texfile) {
 	      my $tex_handle = IO::File->new($name_file);
 	      my @tex_contents = <$tex_handle>;
 	      &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
-	      print "
A message has been sent to the instructor describing this failure
" + print "
A message has been sent to the instructor describing this failure
"; + my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing"); + print ("$help_text"); + } } elsif ($body_log_file=~m//) {