[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[albertel]

albertel		Thu Dec  7 17:12:20 2006 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - commenting out some debug messages
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.115 loncom/interface/printout.pl:1.116
--- loncom/interface/printout.pl:1.115	Wed Dec  6 07:10:16 2006
+++ loncom/interface/printout.pl	Thu Dec  7 17:12:19 2006
@@ -555,9 +555,9 @@
 	      #
 	      my $print_directory = dirname($name_file);
 	      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) {
-		  print "<br />Missing fonts file exists\n";
+		  #print("<br />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 @@
 	  #
 	  my $print_directory = dirname($name_file);
 	  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) {
-	      print "<br />Missing fonts file exists\n";
+	      #print("<br />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 @@
     #
 
     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;  # mag directives.
-	print "<br />After dpi replacements: $command";
+	#print("<br />After dpi replacements: $command");
 
 	my @cmdarray = split(/ /,$command);
 	for (my $i =0; $i < scalar(@cmdarray); $i++) {
@@ -984,10 +984,10 @@
 		$cmdarray[$i+1] = "ljfour";
 	    }
 	}
-	print "<br /> before reassembly : (@cmdarray)";
+	#print("<br /> before reassembly : (@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",
 			   "Creating missing font",
 			   $state, $command);