--- loncom/interface/printout.pl	2002/07/11 20:06:37	1.9
+++ loncom/interface/printout.pl	2002/08/01 15:41:41	1.12
@@ -7,8 +7,10 @@ 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/;
-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>;
@@ -17,9 +19,9 @@ if (-e $figfile) {
     foreach $not_eps (@content_of_file) {
 	if ($not_eps ne '') {
 	    my $eps_f = $not_eps;
-	    $eps_f =~ s/\..*$/\.eps/;
+	    $eps_f =~ s/\.[^.]*$/\.eps/i;
 	    $_ = $eps_f;
-	    m/\/(\w+\.eps)/;
+            m/\/([^\/]+)$/;
 	    $eps_f = '/home/httpd/prtspool/'.$1;
 	    my $image = Image::Magick->new;
 	    $not_eps =~ s/^\s+//;
@@ -67,7 +69,7 @@ $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";