--- loncom/interface/printout.pl	2008/08/07 16:43:18	1.136
+++ loncom/interface/printout.pl	2009/03/24 10:29:39	1.140
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.136 2008/08/07 16:43:18 bisitz Exp $
+# $Id: printout.pl,v 1.140 2009/03/24 10:29:39 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -403,7 +403,8 @@ foreach $texfile (@texfile) {
 	  my $papera=$paper;
 	  if ($papera eq 'letter') {$papera='';}
 	  if ($papera ne '') {$papera='-t'.$papera;}
-	  my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
+	  my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
+	  my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";
 	  &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
 			     "for $status_statement now Converting to PS",
 			     \%prog_state,$new_name_file);
@@ -972,7 +973,7 @@ sub analyze_logfile {
 
 	if ($advanced_role) {  
 	    #LaTeX failed to parse tex file 
-	    print "<h2>".&mt('LaTeX could not successfully parse your tex file.')."</h2>";
+	    print "<h2>".&mt('LaTeX could not successfully parse your TeX file.')."</h2>";
 	    print &mt('It probably has errors in it.')."<br />";
 	    if ($badtext) {
                 print &mt('With very high probability this error occured in [_1].',$badtext)
@@ -1071,7 +1072,7 @@ sub analyze_logfile {
 	    $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
 	    print "<b><big>"
                  .&mt('The link to [_1]Your log file[_2]'
-                     ,'<a href="$logfilename">'.$logfilename.'</a>')
+                     ,'<a href="'.$logfilename.'">','</a>')
 	         ."</big></b>\n";
 	    #link to original LaTeX file
 	    my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";