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

Diff for /loncom/interface/printout.pl between versions 1.115 and 1.116

version 1.115, 2006/12/06 12:10:16 version 1.116, 2006/12/07 22:12:19
Line 555  foreach $texfile (@texfile) { Line 555  foreach $texfile (@texfile) {
       #        #
       my $print_directory = dirname($name_file);        my $print_directory = dirname($name_file);
       my $missfonts_file  = $print_directory."/missfont.log";        my $missfonts_file  = $print_directory."/missfont.log";
       print "<br /> Missing fonts file is: $missfonts_file";        #print("<br /> Missing fonts file is: $missfonts_file");
       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);    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",
Line 664  foreach $texfile (@texfile) { Line 664  foreach $texfile (@texfile) {
   #    #
   my $print_directory = dirname($name_file);    my $print_directory = dirname($name_file);
   my $missfonts_file  = $print_directory."/missfont.log";    my $missfonts_file  = $print_directory."/missfont.log";
   print "<br /> Missing fonts file is: $missfonts_file";    #print("<br /> Missing fonts file is: $missfonts_file");
   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);        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",
Line 973  sub create_missing_fonts { Line 973  sub create_missing_fonts {
     #      #
   
     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.
  $command =~ s/\/8000/\/600/g;  # mag directives.   $command =~ s/\/8000/\/600/g;  # mag directives.
  print "<br />After dpi replacements: $command";   #print("<br />After dpi replacements: $command");
   
  my @cmdarray = split(/ /,$command);   my @cmdarray = split(/ /,$command);
  for (my $i =0; $i < scalar(@cmdarray); $i++) {   for (my $i =0; $i < scalar(@cmdarray); $i++) {
Line 984  sub create_missing_fonts { Line 984  sub create_missing_fonts {
  $cmdarray[$i+1] = "ljfour";   $cmdarray[$i+1] = "ljfour";
     }      }
  }   }
  print "<br /> before reassembly : (@cmdarray)";   #print("<br /> before reassembly : (@cmdarray)");
  $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.115  
changed lines
  Added in v.1.116

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