loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.34, 2003/08/28 13:52:22
+version 1.35, 2003/08/28 13:58:35
  Line 88  use Image::Magick;
  		  print "$content_of_file[$i]<br />";
  	      }
  	  }
+               print "<b><big>The link to ";
+               $logfilename=~s/\/home\/httpd//;
+ 	      print "<a href=\"$logfilename\">Your log file </a></big></b>";
+ 	      print "\n";
+               #link tooriginal LaTeX file (included according Michael Hamlin desire)
+ 	      my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";
+ 	      my @tex_content_of_file = <$tex_temporary_file>;
+ 	      close $tex_temporary_file;
+ 	      my $body_tex_file = join(' ',@tex_content_of_file);
+ 	      $texfile =~ s/\.tex$/aaaaa\.html/;
+ 	      $tex_temporary_file = IO::File->new('>'.$texfile);
+ 	      print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n";
+ 	      print "<br /><br />";
+ 	      print "<b><big>The link to ";
+ 	      $texfile=~s/\/home\/httpd//;
+ 	      print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
+ 	      print "\n";
        } elsif ($body_log_file=~m/<inserted text>/) {
  	  my $whereitbegins = index $body_log_file,'<inserted text>';
  	  print "You are running LaTeX in the <b>batch mode</b>.";