[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[sakharuk]

sakharuk		Tue Feb  3 16:39:11 2004 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Changes to print students assignments by sections (parts) - the first step.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.42 loncom/interface/printout.pl:1.43
--- loncom/interface/printout.pl:1.42	Mon Feb  2 19:02:15 2004
+++ loncom/interface/printout.pl	Tue Feb  3 16:39:11 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.42 2004/02/03 00:02:15 albertel Exp $
+# $Id: printout.pl,v 1.43 2004/02/03 21:39:11 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,6 +57,9 @@
   my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
   my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
   my $advans_role = $ENV{'cgi.'.$identifier.'role'};
+  my $back_ref = $ENV{'cgi.'.$identifier.'backref'};
+  my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
+
 
   my $figfile = $texfile;
   $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
@@ -108,7 +111,16 @@
 	  }
       }
   }
-  #print "$texfile\n"; #name of the tex file for debugging only
+  #print "$texfile\n"; #name of the tex file for debugging only   
+  my @texfile=($texfile);
+  if ($number_of_files>1) {
+      for (my $i=1;$i<=$number_of_files-1;$i++) {
+	  my $new_texfile=$texfile;
+	  $new_texfile=~s/\.tex/_add$i\.tex/;
+	  push @texfile,$new_texfile;
+      } 
+  }
+foreach $texfile (@texfile) {
   if (-e $texfile) {
       $texfile =~ m/^(.*)\/([^\/]+)$/; 
       my $name_file = $2;
@@ -282,6 +294,7 @@
   } else {
       print "LaTeX file $texfile was not created successfully";
   }
+}