--- loncom/interface/printout.pl 2007/01/19 20:22:33 1.120
+++ loncom/interface/printout.pl 2007/02/22 01:00:13 1.121
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.120 2007/01/19 20:22:33 albertel Exp $
+# $Id: printout.pl,v 1.121 2007/02/22 01:00:13 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -188,9 +188,9 @@ END
print "Return to last resource.
";
my $figfile = $texfile;
- $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
+ $figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;
my $duefile = $texfile;
- $duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
+ $duefile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.due/;
#do we have figures?
# print "Figure file: $figfile\n";
if (-e $figfile) {