--- loncom/interface/printout.pl 2002/07/11 20:06:37 1.9
+++ loncom/interface/printout.pl 2002/07/30 14:11:17 1.10
@@ -7,8 +7,10 @@ print "
OUTPUT is in the PDF FILE (se
my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
-my $duefile = $figfile;
-$duefile =~ s/\.dat$/\.due/;
+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>;
@@ -67,7 +69,7 @@ $texps =~ s/\.tex/\.ps/;
my @garb = ($texlog,$texaux,$texdvi,$texps);
unlink @garb;
unlink $duefile;
-
+unlink $tblfile;
print "Your PDF document\n";
print "\n";