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

Diff for /loncom/interface/printout.pl between versions 1.136 and 1.139

version 1.136, 2008/08/07 16:43:18 version 1.139, 2009/03/24 10:15:15
Line 403  foreach $texfile (@texfile) { Line 403  foreach $texfile (@texfile) {
   my $papera=$paper;    my $papera=$paper;
   if ($papera eq 'letter') {$papera='';}    if ($papera eq 'letter') {$papera='';}
   if ($papera ne '') {$papera='-t'.$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';
     &Apache::lonnet::logthis("Extra ps header: $extra_ps_header");
     my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";
     &Apache::lonnet::logthis("dvips command: $comma");
   &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Converting to PS",       "for $status_statement now Converting to PS",
      \%prog_state,$new_name_file);       \%prog_state,$new_name_file);
Line 972  sub analyze_logfile { Line 975  sub analyze_logfile {
   
  if ($advanced_role) {     if ($advanced_role) {  
     #LaTeX failed to parse tex file       #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 />";      print &mt('It probably has errors in it.')."<br />";
     if ($badtext) {      if ($badtext) {
                 print &mt('With very high probability this error occured in [_1].',$badtext)                  print &mt('With very high probability this error occured in [_1].',$badtext)
Line 1071  sub analyze_logfile { Line 1074  sub analyze_logfile {
     $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};      $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
     print "<b><big>"      print "<b><big>"
                  .&mt('The link to [_1]Your log file[_2]'                   .&mt('The link to [_1]Your log file[_2]'
                      ,'<a href="$logfilename">'.$logfilename.'</a>')                       ,'<a href="'.$logfilename.'">','</a>')
          ."</big></b>\n";           ."</big></b>\n";
     #link to original LaTeX file      #link to original LaTeX file
     my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";      my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n";
Removed from v.1.136  
changed lines
  Added in v.1.139

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