--- loncom/interface/printout.pl	2005/08/03 10:34:03	1.88
+++ 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";
@@ -285,8 +287,7 @@ foreach $texfile (@texfile) {
   my $name_range='';
   if ($tempo_array[3]) {
       $name=$tempo_array[3];
-      my @full_names = split(/,/,$name); # split last name from others...
-      $name_range = $full_names[0];
+      ($name_range) = split(/,/,$name, 2);
   } else {
       $name=$tempo_array[0].'@'.$tempo_array[1];
       $name_range = $tempo_array[0];
@@ -299,8 +300,8 @@ foreach $texfile (@texfile) {
       @tempo_array=split(/:/,$stud_info[-1]);
       if ($tempo_array[3]) {
 	  $name=$tempo_array[3];
-	  my @full_names = split(/,/, $name);
-	  $name_range .= "-".$full_names[0];
+	  my ($lastname) = split(/,/, $name,2);
+	  $name_range .= "-".$lastname;
       } else {
 	  $name=$tempo_array[0].'@'.$tempo_array[1];
 	  $name_range .= '-'.$tempo_array[0];
@@ -382,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/^!/) {
@@ -413,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.
@@ -424,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>/) {