--- loncom/interface/printout.pl	2005/08/04 21:26:23	1.89
+++ loncom/interface/printout.pl	2005/09/16 19:36:08	1.91
@@ -121,7 +121,9 @@ sub send_error_mail {
 	    my $subject  = "Error [$badurl] Print failed for $user".'@'.$domain;
 	    my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
 	    $message    .= "  User was attempting to print: \n";
-	    $message    .= "       $resources\n";
+	    foreach my $resource (split(/:/,$resources)) {
+		$message    .= "       $resource\n";
+	    }
 	    $message    .= "--------------------LaTeX logfile:------------ \n";
 	    $message    .= $logfile;
 	    $message    .= "-----------------LaTeX source file: ------------\n";
@@ -381,6 +383,7 @@ foreach $texfile (@texfile) {
 	      print "It probably has errors in it.<br />";
 	      print "With very high probability this error occured in ".$badtext."<br /><br />";
 	      print "Here are the error messages in the LaTeX log file<br /><pre>";
+
 	      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 +415,9 @@ foreach $texfile (@texfile) {
 	      $texfile=~s/\/home\/httpd//;
 	      print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
 	      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 +429,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 "<br />A message has been sent to the instructor describing this failure<br />"
+	      print "<br />A message has been sent to the instructor describing this failure<br />";
+	      my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", "Help on printing");
+	      print  ("$help_text");
+
 	  }
 
       } elsif ($body_log_file=~m/<inserted text>/) {