--- loncom/interface/lonprintout.pm	2004/02/03 21:38:18	1.272
+++ loncom/interface/lonprintout.pm	2004/02/03 21:57:48	1.273
@@ -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 @@ ENDPART
     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 $!");