--- loncom/interface/printout.pl 2002/05/09 15:46:01 1.7 +++ loncom/interface/printout.pl 2002/05/23 20:20:17 1.8 @@ -6,7 +6,8 @@ print "\n"; print "

OUTPUT is in the PDF FILE (see link below)

\n"; my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'}); my $figfile = $texfile; -$figfile =~ s/\.tex/\.dat/; +$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; +print "GLYDI SUDY $figfile ENS"; if (-e $figfile) { my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; my @content_of_file = <$temporary_file>;