--- loncom/interface/printout.pl	2002/05/23 20:20:17	1.8
+++ loncom/interface/printout.pl	2002/07/11 20:06:37	1.9
@@ -7,7 +7,8 @@ print "<h1>OUTPUT is in the PDF FILE (se
 my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'});
 my $figfile = $texfile;
 $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
-print "GLYDI SUDY $figfile ENS";
+my $duefile = $figfile;
+$duefile =~ s/\.dat$/\.due/;
 if (-e $figfile) {
     my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n";
     my @content_of_file = <$temporary_file>;
@@ -65,7 +66,7 @@ $texdvi =~ s/\.tex/\.dvi/;
 $texps =~ s/\.tex/\.ps/;
 my @garb = ($texlog,$texaux,$texdvi,$texps);
 unlink @garb;
-
+unlink $duefile;
 
 print "<a href=\"/prtspool/$name_file\">Your PDF document</a>\n";
 print "\n";