--- 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("
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 "Your PDF document";
+ unlink $missfonts_file;
+
}
if ($advanced_role) {
print "
";
@@ -627,6 +628,7 @@ foreach $texfile (@texfile) {
print "Your original LaTeX file ";
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("
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 "$link_text - click here to download pdf";
print "\n";
}
+ unlink $missfonts_file;
+
}
} else {
print "LaTeX file $texfile was not created successfully";