[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.77 and 1.78

version 1.77, 2005/05/02 21:57:44 version 1.78, 2005/05/02 22:59:11
Line 97  sub is_student { Line 97  sub is_student {
 #   Debugging:  Dump the environment for debugging.  #   Debugging:  Dump the environment for debugging.
 #  #
 sub dumpenv  {  sub dumpenv  {
     print "<br>-------------------<br>";      print "<p>-------------------</p>";
     foreach my $key (sort (keys %env)) {      foreach my $key (sort (keys %env)) {
  print "<br>$key -> $env{$key}";   print "<br />$key -> $env{$key}";
     }      }
     print "<br>-------------------<br>";      print "<p>-------------------</p>";
 }  }
   
 #  #
Line 148  sub send_error_mail { Line 148  sub send_error_mail {
   
  if (&is_student( $courseid, $coursedom)) {   if (&is_student( $courseid, $coursedom)) {
     # build the subject and message body:      # build the subject and message body:
     print "sending message to course coordinators.<br>";      print "sending message to course coordinators.<br />";
           
     my $subject  = "Print failed for $user".'@'.$domain;      my $subject  = "Print failed for $user".'@'.$domain;
     my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";      my $message .= "Print failed to render LaTeX for $user".'@'."$domain\n";
Line 382  foreach $texfile (@texfile) { Line 382  foreach $texfile (@texfile) {
   }    }
   print "</pre>\n";    print "</pre>\n";
           if ($advanced_role) {              if ($advanced_role) {  
       print "<br> Advanced role <br>";        print "<p> Advanced role </p>";
               print "<b><big>The link to ";                print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;                $logfilename=~s/\/home\/httpd//;
       print "<a href=\"$logfilename\">Your log file </a></big></b>";        print "<a href=\"$logfilename\">Your log file </a></big></b>";
Removed from v.1.77  
changed lines
  Added in v.1.78

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>