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

Diff for /loncom/interface/printout.pl between versions 1.117 and 1.119

version 1.117, 2006/12/18 11:34:55 version 1.119, 2006/12/19 10:39:28
Line 527  foreach $texfile (@texfile) { Line 527  foreach $texfile (@texfile) {
      \%prog_state, $dvi_file);       \%prog_state, $dvi_file);
   
       }        }
       &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 dvips to repaginate",   "for $status_statement dvips to repaginate",
  \%prog_state, $new_name_file);   \%prog_state, $new_name_file);
       #        #
Line 559  foreach $texfile (@texfile) { Line 559  foreach $texfile (@texfile) {
       if (-e $missfonts_file) {        if (-e $missfonts_file) {
   #print("<br />Missing fonts file exists\n");    #print("<br />Missing fonts file exists\n");
   &create_missing_fonts($missfonts_file);    &create_missing_fonts($missfonts_file);
   unlink($missfonts_file, \%prog_state);    &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 dvips generated missing fonts",       "for $status_statement dvips generated missing fonts",
      \%prog_state, $new_name_file);       \%prog_state, $new_name_file);
       }        }
Line 606  foreach $texfile (@texfile) { Line 605  foreach $texfile (@texfile) {
 #  unlink @garb;  #  unlink @garb;
       unlink $duefile;        unlink $duefile;
       print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>";        print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>";
         unlink $missfonts_file;
   
   }    }
   if ($advanced_role) {      if ($advanced_role) {  
       print "<br /><br />";        print "<br /><br />";
Line 627  foreach $texfile (@texfile) { Line 628  foreach $texfile (@texfile) {
       print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";        print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
       print "\n";        print "\n";
   }    }
   
       } else {        } else {
   #LaTeX successfully parsed tex file     #LaTeX successfully parsed tex file 
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
Line 668  foreach $texfile (@texfile) { Line 670  foreach $texfile (@texfile) {
   if (-e $missfonts_file) {    if (-e $missfonts_file) {
       #print("<br />Missing fonts file exists\n");        #print("<br />Missing fonts file exists\n");
       &create_missing_fonts($missfonts_file);        &create_missing_fonts($missfonts_file);
       unlink($missfonts_file);        &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 dvips generated missing fonts",   "for $status_statement dvips generated missing fonts",
  \%prog_state, $new_name_file);   \%prog_state, $new_name_file);
   }    }
Line 759  foreach $texfile (@texfile) { Line 760  foreach $texfile (@texfile) {
       print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";        print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";
       print "\n";        print "\n";
   }    }
     unlink $missfonts_file;
   
       }          }  
   } else {    } else {
       print "LaTeX file $texfile was not created successfully";        print "LaTeX file $texfile was not created successfully";
Line 962  sub create_missing_fonts { Line 965  sub create_missing_fonts {
     # Open and read in the font file..we'll read it into the array      # Open and read in the font file..we'll read it into the array
     #  font_commands.      #  font_commands.
     #      #
     my $font_handle = IO::File->new($fontfile);      open(my $font_handle, $fontfile);
     my @font_commands = <$font_handle>;      my @font_commands = <$font_handle>;
       
       # make the list contain each command only once
       my %uniq;
       @font_commands = map { $uniq{$_}++ == 0 ? $_ : () } @font_commands;
   
     #  Now process each command replacing the appropriate 8000's with      #  Now process each command replacing the appropriate 8000's with
     #  600's ensuring that font names with 8000's in them are not corrupted.      #  600's ensuring that font names with 8000's in them are not corrupted.
     #  and if the --mfmode is not ljfour we turn it into ljfour.      #  and if the --mfmode is not ljfour we turn it into ljfour.
     #   Then we execute the command.      #   Then we execute the command.
     #      #
       
     foreach my $command (@font_commands) {      foreach my $command (@font_commands) {
  #print("<br />Raw command: $command");   #print("<br />Raw command: $command");
  $command =~ s/ 8000/ 600/g;    # dpi directives.   $command =~ s/ 8000/ 600/g;    # dpi directives.
Line 988  sub create_missing_fonts { Line 994  sub create_missing_fonts {
  $command = join(" ", (@cmdarray));   $command = join(" ", (@cmdarray));
   
  #print("<br />Creating fonts via command: $command");   #print("<br />Creating fonts via command: $command");
  &busy_wait_command("$command 1>dev/null 2>/dev/null",   &busy_wait_command("$command 1>/dev/null 2>/dev/null",
    "Creating missing font",     "Creating missing font",
    $state, $command);     $state, $command);
         
Removed from v.1.117  
changed lines
  Added in v.1.119

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