version 1.120, 2007/01/19 20:22:33
|
version 1.121, 2007/02/22 01:00:13
|
Line 188 END
|
Line 188 END
|
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />"; |
print "<a href=\"$backref\"><b>Return</b></a> to last resource.<br /><br />"; |
|
|
my $figfile = $texfile; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/; |
my $duefile = $texfile; |
my $duefile = $texfile; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
$duefile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.due/; |
#do we have figures? |
#do we have figures? |
# print "Figure file: $figfile\n"; |
# print "Figure file: $figfile\n"; |
if (-e $figfile) { |
if (-e $figfile) { |