version 1.41, 2004/01/08 19:50:47
|
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 64 END
|
Line 67 END
|
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/; |
#do we have figures? |
#do we have figures? |
if (-e $figfile) { |
if (-e $figfile) { |
|
my %done_conversion; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my $temporary_file=IO::File->new($figfile) || die "Couldn't open file for reading: $!\n"; |
my @content_of_file = <$temporary_file>; |
my @content_of_file = <$temporary_file>; |
close $temporary_file; |
close $temporary_file; |
Line 86 END
|
Line 90 END
|
my $image = Image::Magick->new; |
my $image = Image::Magick->new; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
|
if ( exists($done_conversion{$not_eps})) { |
|
next; |
|
} |
|
$done_conversion{$not_eps}=1; |
$status = $image->Read($not_eps); |
$status = $image->Read($not_eps); |
if ($status) {print " $status ";} |
if ($status) {print " $status ";} |
$image->Set(page => '+100+200'); |
$image->Set(page => '+100+200'); |
Line 103 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 277 END
|
Line 294 END
|
} else { |
} else { |
print "LaTeX file $texfile was not created successfully"; |
print "LaTeX file $texfile was not created successfully"; |
} |
} |
|
} |
|
|
|
|
|
|