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

Diff for /loncom/interface/printout.pl between versions 1.30 and 1.33

version 1.30, 2003/07/23 18:58:59 version 1.33, 2003/08/14 14:46:52
Line 49  use Image::Magick; Line 49  use Image::Magick;
       my $path_file = $1.'/';        my $path_file = $1.'/';
       chdir $path_file;        chdir $path_file;
       system("latex $name_file 1>/dev/null 2>/dev/null");        system("latex $name_file 1>/dev/null 2>/dev/null");
         if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents
         my $idxname=$name_file;
         $idxname=~s/\.tex$/\.idx/;
         if ($selectionmade>=100) {
     system("makeindex $idxname");
     system("latex $name_file 1>/dev/null 2>/dev/null");
         } #to create index
       #Do we have a latex error in the log file?        #Do we have a latex error in the log file?
       my $logfilename = $texfile;        my $logfilename = $texfile;
       $logfilename =~ s/\.tex$/\.log/;        $logfilename =~ s/\.tex$/\.log/;
Line 83  use Image::Magick; Line 90  use Image::Magick;
   }     } 
       } elsif ($body_log_file=~m/<inserted text>/) {        } elsif ($body_log_file=~m/<inserted text>/) {
   my $whereitbegins = index $body_log_file,'<inserted text>';    my $whereitbegins = index $body_log_file,'<inserted text>';
   print "You are running LaTeX in the <b>batch mode</b>. \n";    print "You are running LaTeX in the <b>batch mode</b>.";
   while ($whereitbegins != -1) {    while ($whereitbegins != -1) {
       my $tempobegin=$whereitbegins;        my $tempobegin=$whereitbegins;
       $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;        $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
       my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;        my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;
       print "It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." and corrected it.\n";        print "<br />It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." and corrected it.\n";
       print "Usually this correction is valid but you probably need to check the indicated resource one more time and implement neccessary corrections by yourself.\n";        print "Usually this correction is valid but you probably need to check the indicated resource one more time and implement neccessary corrections by yourself.\n";
       $whereitbegins = index $body_log_file,'<inserted text>',$tempobegin+10;        $whereitbegins = index $body_log_file,'<inserted text>',$tempobegin+10;
   }    }
Removed from v.1.30  
changed lines
  Added in v.1.33

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