Return to printout.pl CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.85, 2005/07/22 11:42:50 | version 1.86, 2005/07/25 10:27:51 |
---|---|
Line 262 END | Line 262 END |
@texfile=(); | @texfile=(); |
for (my $i=1;$i<=$number_of_files;$i++) { | for (my $i=1;$i<=$number_of_files;$i++) { |
my $new_texfile=$texfile; | my $new_texfile=$texfile; |
$new_texfile=~s/\.tex/_$i\.tex/; | $new_texfile=~s/\.tex//; |
$new_texfile = sprintf("%s_%03d.tex", $new_texfile,$i); | |
print "<BR>Produced file: $new_texfile"; | |
push @texfile,$new_texfile; | push @texfile,$new_texfile; |
} | } |
} | } |