--- 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.
";
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/^!/) { @@ -413,6 +415,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. @@ -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 "
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//) {