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 $!"); |