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

[sakharuk]

sakharuk		Thu May 23 16:20:17 2002 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  modification of the file name for eps pictures
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.7 loncom/interface/printout.pl:1.8
--- loncom/interface/printout.pl:1.7	Thu May  9 11:46:01 2002
+++ loncom/interface/printout.pl	Thu May 23 16:20:17 2002
@@ -6,7 +6,8 @@
 print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\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>;