--- loncom/interface/printout.pl	2002/08/01 15:41:41	1.12
+++ loncom/interface/printout.pl	2002/08/01 18:09:27	1.13
@@ -9,8 +9,6 @@ my $figfile = $texfile;
 $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
 my $duefile = $texfile;
 $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
-my $tblfile = $texfile;
-$tblfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.tbl/;
 if (-e $figfile) {
     my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
     my @content_of_file = <$temporary_file>;
@@ -69,7 +67,6 @@ $texps =~ s/\.tex/\.ps/;
 my @garb = ($texlog,$texaux,$texdvi,$texps);
 unlink @garb;
 unlink $duefile;
-unlink $tblfile;
 print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
 print "\n";