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

Diff for /loncom/interface/printout.pl between versions 1.62 and 1.63

version 1.62, 2004/08/04 18:19:11 version 1.63, 2004/08/05 18:18:15
Line 194  foreach $texfile (@texfile) { Line 194  foreach $texfile (@texfile) {
  "for $status_statement now LaTeXing file",   "for $status_statement now LaTeXing file",
  \%prog_state,$dvi_file);   \%prog_state,$dvi_file);
       if ($tableofcontents eq 'yes') {        if ($tableofcontents eq 'yes') {
   system("latex $name_file 1>/dev/null 2>/dev/null");        &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
    "for $status_statement now LaTeXing file for table of contents",
    \%prog_state,$dvi_file);
       } #to create table of contents        } #to create table of contents
       my $idxname=$name_file;        my $idxname=$name_file;
       $idxname=~s/\.tex$/\.idx/;        $idxname=~s/\.tex$/\.idx/;
       if ($tableofindex eq 'yes') {        if ($tableofindex eq 'yes') {
   system("makeindex $idxname");    &busy_wait_command("makeindex $idxname",
   system("latex $name_file 1>/dev/null 2>/dev/null");       "making index file",
        \%prog_state,$idxname);
     &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
        "for $status_statement now LaTeXing file for index section",
        \%prog_state,$dvi_file);
       } #to create index        } #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;
Line 291  foreach $texfile (@texfile) { Line 297  foreach $texfile (@texfile) {
                   my $papera=$papers[$paper];                    my $papera=$papers[$paper];
   if ($papera ne '') {$papera='-p'.$papera;}    if ($papera ne '') {$papera='-p'.$papera;}
   $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';    $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
   system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");    &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
   system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");       "for $status_statement now Modifying PS layout",
        \%prog_state,$tempo_file); 
   
       } else {        } else {
   $ps_file=$new_name_file;    $ps_file=$new_name_file;
       }            }    
Line 369  foreach $texfile (@texfile) { Line 377  foreach $texfile (@texfile) {
       }        }
       if ($paper eq '6') {        if ($paper eq '6') {
   open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n";    open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n";
   my @content_of_file = <FFH>;    my $new_ps_file='new'.$ps_file;
   close(FFH);    open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n";
   open(FFH,'>',$ps_file) || die "Couldn't open file for writing: $!\n";    my $i=-1;
                   print FFH '<< /PageSize [595.2 842] >> setpagedevice'."\n";    while (<FFH>) {
   for (my $i=0;$i<=$#content_of_file;$i++) {        $i++;
       print FFH $content_of_file[$i];        if ($i==0) {print FFHS '<< /PageSize [595.2 842] >> setpagedevice'."\n";} 
       print "<br>$i<br>";        print FFHS $_;
   }    }
   close(FFH);        close(FFH);
     close(FFHS);
     $ps_file=$new_ps_file;  
       }        }
       &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",        &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
  "for $status_statement now Converting PS to PDF",   "for $status_statement now Converting PS to PDF",
Line 397  foreach $texfile (@texfile) { Line 407  foreach $texfile (@texfile) {
       print "<a href=\"/prtspool/$pdf_file\">$link_text</a>";        print "<a href=\"/prtspool/$pdf_file\">$link_text</a>";
       print "\n";        print "\n";
   }    }
       }        }  
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
   }    }
Removed from v.1.62  
changed lines
  Added in v.1.63

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