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

[sakharuk]

sakharuk		Tue Jul 30 10:11:17 2002 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Corrections for cleanup.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.9 loncom/interface/printout.pl:1.10
--- loncom/interface/printout.pl:1.9	Thu Jul 11 16:06:37 2002
+++ loncom/interface/printout.pl	Tue Jul 30 10:11:17 2002
@@ -7,8 +7,10 @@
 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 @@
 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";