loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.272, 2004/02/03 21:38:18	version 1.273, 2004/02/03 21:57:48
Line 1125 ENDPART	Line 1125 ENDPART
print $temp_file $result;	print $temp_file $result;
my $begin=index($result,'\begin{document}',0);	my $begin=index($result,'\begin{document}',0);
my $inc=substr($result,0,$begin+16);	my $inc=substr($result,0,$begin+16);
my $newfilename=$filename;
if ($#print_array>0) {	if ($#print_array>0) {
for (my $i=1;$i<=$#print_array;$i++) {	for (my $i=1;$i<=$#print_array;$i++) {
my $anobegin=index($print_array[$i],'\setcounter{page}',0);	my $anobegin=index($print_array[$i],'\setcounter{page}',0);
substr($print_array[$i],0,$anobegin)='';	substr($print_array[$i],0,$anobegin)='';
$print_array[$i]=$inc.$print_array[$i].'\end{document}';	$print_array[$i]=$inc.$print_array[$i].'\end{document}';
my $temp_file;	my $temp_file;
	my $newfilename=$filename;
$newfilename =~s/\.tex$/_add$i\.tex/;	$newfilename =~s/\.tex$/_add$i\.tex/;
unless ($temp_file = Apache::File->new('>'.$newfilename)) {	unless ($temp_file = Apache::File->new('>'.$newfilename)) {
$r->log_error("Couldn't open $newfilename for output $!");	$r->log_error("Couldn't open $newfilename for output $!");