loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

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) {