--- loncom/interface/printout.pl	2006/12/18 21:03:10	1.118
+++ loncom/interface/printout.pl	2006/12/19 10:39:28	1.119
@@ -559,7 +559,6 @@ foreach $texfile (@texfile) {
 	      if (-e $missfonts_file) {
 		  #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",
 				     "for $status_statement dvips generated missing fonts",
 				     \%prog_state, $new_name_file);
@@ -606,6 +605,8 @@ foreach $texfile (@texfile) {
 #	  unlink @garb;
 	      unlink $duefile;
 	      print "<a href=\"/prtspool/$pdf_file\">Your PDF document</a>";
+	      unlink $missfonts_file;
+
 	  }
 	  if ($advanced_role) {  
 	      print "<br /><br />";
@@ -627,6 +628,7 @@ foreach $texfile (@texfile) {
 	      print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
 	      print "\n";
 	  }
+
       } else {
 	  #LaTeX successfully parsed tex file 
 	  $name_file =~ s/\.tex/\.dvi/;
@@ -668,7 +670,6 @@ foreach $texfile (@texfile) {
 	  if (-e $missfonts_file) {
 	      #print("<br />Missing fonts file exists\n");
 	      &create_missing_fonts($missfonts_file);
-	      unlink($missfonts_file);
 	      &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
 				 "for $status_statement dvips generated missing fonts",
 				 \%prog_state, $new_name_file);
@@ -759,6 +760,8 @@ foreach $texfile (@texfile) {
 	      print "<a href=\"/prtspool/$pdf_file\">$link_text - click here to download pdf</a>";
 	      print "\n";
 	  }
+	  unlink $missfonts_file;
+
       }  
   } else {
       print "LaTeX file $texfile was not created successfully";