version 1.42, 2004/02/03 00:02:15
|
version 1.43, 2004/02/03 21:39:11
|
Line 57 END
|
Line 57 END
|
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'}; |
my $advans_role = $ENV{'cgi.'.$identifier.'role'}; |
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; |
my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |
Line 108 END
|
Line 111 END
|
} |
} |
} |
} |
} |
} |
#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) { |
if (-e $texfile) { |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
$texfile =~ m/^(.*)\/([^\/]+)$/; |
my $name_file = $2; |
my $name_file = $2; |
Line 282 END
|
Line 294 END
|
} else { |
} else { |
print "LaTeX file $texfile was not created successfully"; |
print "LaTeX file $texfile was not created successfully"; |
} |
} |
|
} |
|
|
|
|
|
|