loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.42, 2004/02/03 00:02:15	version 1.43, 2004/02/03 21:39:11
Line 57 END	Line 57 END
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};	my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};	my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
my $advans_role = $ENV{'cgi.'.$identifier.'role'};	my $advans_role = $ENV{'cgi.'.$identifier.'role'};
	my $back_ref = $ENV{'cgi.'.$identifier.'backref'};
	my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;


my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
Line 108 END	Line 111 END
}	}
}	}
}	}
#print "$texfile\n"; #name of the tex file for debugging only	#print "$texfile\n"; #name of the tex file for debugging only
	my @texfile=($texfile);
	if ($number_of_files>1) {
	for (my $i=1;$i<=$number_of_files-1;$i++) {
	my $new_texfile=$texfile;
	$new_texfile=~s/\.tex/_add$i\.tex/;
	push @texfile,$new_texfile;
	}
	}
	foreach $texfile (@texfile) {
if (-e $texfile) {	if (-e $texfile) {
$texfile =~ m/^(.*)\/([^\/]+)$/;	$texfile =~ m/^(.*)\/([^\/]+)$/;
my $name_file = $2;	my $name_file = $2;
Line 282 END	Line 294 END
} else {	} else {
print "LaTeX file $texfile was not created successfully";	print "LaTeX file $texfile was not created successfully";
}	}
	}