[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.80

version 1.77, 2005/05/02 21:57:44 version 1.80, 2005/05/03 22:22:47
Line 32  use File::Path; Line 32  use File::Path;
 use IO::File;  use IO::File;
 use Image::Magick;  use Image::Magick;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmsg;  use Apache::lonmsg;
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 201  END Line 201  END
   my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};    my $numberofcolumns = $env{'cgi.'.$identifier.'.numcol'};
   my $paper = $env{'cgi.'.$identifier.'.paper'};    my $paper = $env{'cgi.'.$identifier.'.paper'};
   my $selectionmade = $env{'cgi.'.$identifier.'.selection'};    my $selectionmade = $env{'cgi.'.$identifier.'.selection'};
   my $tableofcontents = $env{'cgi.'.$identifier.'tableofcontents'};    my $tableofcontents = $env{'cgi.'.$identifier.'.tableofcontents'};
   my $tableofindex = $env{'cgi.'.$identifier.'tableofindex'};    my $tableofindex = $env{'cgi.'.$identifier.'.tableofindex'};
   my $advanced_role = $env{'cgi.'.$identifier.'role'};    my $advanced_role = $env{'cgi.'.$identifier.'.role'};
   my $number_of_files = $env{'cgi.'.$identifier.'numberoffiles'}+1;    my $number_of_files = $env{'cgi.'.$identifier.'.numberoffiles'}+1;
   my $student_names = $env{'cgi.'.$identifier.'studentnames'};    my $student_names = $env{'cgi.'.$identifier.'.studentnames'};
   my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'backref'});    my $backref = &Apache::lonnet::unescape($env{'cgi.'.$identifier.'.backref'});
   
   
   my $adv = $env{'request.role.adv'};    my $adv = $env{'request.role.adv'};
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.80

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