sakharuk Tue Feb 3 16:57:48 2004 EDT
Modified files:
/loncom/interface lonprintout.pm
Log:
Small but very important correction - I've put one statement in the wrong place.
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.272 loncom/interface/lonprintout.pm:1.273
--- loncom/interface/lonprintout.pm:1.272 Tue Feb 3 16:38:18 2004
+++ loncom/interface/lonprintout.pm Tue Feb 3 16:57:48 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.272 2004/02/03 21:38:18 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.273 2004/02/03 21:57:48 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1125,13 +1125,13 @@
print $temp_file $result;
my $begin=index($result,'\begin{document}',0);
my $inc=substr($result,0,$begin+16);
- my $newfilename=$filename;
if ($#print_array>0) {
for (my $i=1;$i<=$#print_array;$i++) {
my $anobegin=index($print_array[$i],'\setcounter{page}',0);
substr($print_array[$i],0,$anobegin)='';
$print_array[$i]=$inc.$print_array[$i].'\end{document}';
my $temp_file;
+ my $newfilename=$filename;
$newfilename =~s/\.tex$/_add$i\.tex/;
unless ($temp_file = Apache::File->new('>'.$newfilename)) {
$r->log_error("Couldn't open $newfilename for output $!");