--- loncom/interface/printout.pl 2006/12/06 12:10:16 1.115
+++ loncom/interface/printout.pl 2006/12/07 22:12:19 1.116
@@ -555,9 +555,9 @@ foreach $texfile (@texfile) {
#
my $print_directory = dirname($name_file);
my $missfonts_file = $print_directory."/missfont.log";
- print "
Missing fonts file is: $missfonts_file";
+ #print("
Missing fonts file is: $missfonts_file");
if (-e $missfonts_file) {
- print "
Missing fonts file exists\n";
+ #print("
Missing fonts file exists\n");
&create_missing_fonts($missfonts_file);
unlink($missfonts_file, \%prog_state);
&busy_wait_command("$comma $name_file 1>dev/null 2>/dev/null",
@@ -664,9 +664,9 @@ foreach $texfile (@texfile) {
#
my $print_directory = dirname($name_file);
my $missfonts_file = $print_directory."/missfont.log";
- print "
Missing fonts file is: $missfonts_file";
+ #print("
Missing fonts file is: $missfonts_file");
if (-e $missfonts_file) {
- print "
Missing fonts file exists\n";
+ #print("
Missing fonts file exists\n");
&create_missing_fonts($missfonts_file);
unlink($missfonts_file, \%prog_state);
&busy_wait_command("$comma $name_file 1>dev/null 2>/dev/null",
@@ -973,10 +973,10 @@ sub create_missing_fonts {
#
foreach my $command (@font_commands) {
- print "
Raw command: $command";
+ #print("
Raw command: $command");
$command =~ s/ 8000/ 600/g; # dpi directives.
$command =~ s/\/8000/\/600/g; # mag directives.
- print "
After dpi replacements: $command";
+ #print("
After dpi replacements: $command");
my @cmdarray = split(/ /,$command);
for (my $i =0; $i < scalar(@cmdarray); $i++) {
@@ -984,10 +984,10 @@ sub create_missing_fonts {
$cmdarray[$i+1] = "ljfour";
}
}
- print "
before reassembly : (@cmdarray)";
+ #print("
before reassembly : (@cmdarray)");
$command = join(" ", (@cmdarray));
- print "
Creating fonts via command: $command";
+ #print("
Creating fonts via command: $command");
&busy_wait_command("$command 1>dev/null 2>/dev/null",
"Creating missing font",
$state, $command);