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.122, 2007/02/23 00:39:31
Line 128 sub send_error_mail {	Line 128 sub send_error_mail {
foreach my $line (@$texfile) {	foreach my $line (@$texfile) {
$message .= "$line\n";	$message .= "$line\n";
}	}
my (undef, %receivers) = &Apache::lonfeedback::decide_receiver(undef, 0,	my (undef, %receivers) = &Apache::lonmsg::decide_receiver(undef, 0,
1,1,1);	1,1,1);
# print "<br /> sending...section: $env{'request.course.sec'}";	# print "<br /> sending...section: $env{'request.course.sec'}";
foreach my $dest (keys %receivers) {	foreach my $dest (keys %receivers) {
# print "<br /> dest is $dest";	# print "<br /> dest is $dest";
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) {