version 1.148, 2011/04/26 10:47:25
|
version 1.149, 2011/05/18 11:26:44
|
Line 44 use LONCAPA::Configuration;
|
Line 44 use LONCAPA::Configuration;
|
use strict; |
use strict; |
|
|
my $busy_wait_timeout = 30; |
my $busy_wait_timeout = 30; |
|
my $pdfs_converted = 0; # non zero if PDF includes (need to fixps). |
|
|
my $debugging = 0; |
my $debugging = 0; |
|
|
Line 490 foreach $texfile (@texfile) {
|
Line 490 foreach $texfile (@texfile) {
|
# The code below uses gs to make pdf includes in sequences work |
# The code below uses gs to make pdf includes in sequences work |
|
|
# Use gs to fix the postscript -> level 1.5 |
# Use gs to fix the postscript -> level 1.5 |
|
# .. if pdfs were included |
|
|
$comma = "gs -sDEVICE=pswrite -dLanguageLevel=1.5 "; |
if ($pdfs_converted > 0) { |
&busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null", |
$comma = "gs -sDEVICE=pswrite -dLanguageLevel=1.5 "; |
"for $status_statement now validating PS", |
&busy_wait_command("$comma -o $tempo_file $new_name_file 2>/dev/null 1>/dev/null", |
\%prog_state, $tempo_file); |
"for $status_statement now validating PS", |
|
\%prog_state, $tempo_file); |
|
|
#--- |
#--- |
&busy_wait_command("mv $tempo_file $new_name_file", |
&busy_wait_command("mv $tempo_file $new_name_file", |
'File move', \%prog_state, $new_name_file); |
'File move', \%prog_state, $new_name_file); |
|
} |
if ($laystyle eq 'album' and $numberofcolumns eq '2') { |
if ($laystyle eq 'album' and $numberofcolumns eq '2') { |
$comma = "psnup $papera -2 -s1.0 $new_name_file"; |
$comma = "psnup $papera -2 -s1.0 $new_name_file"; |
&debug("PSNUP command: $comma"); |
&debug("PSNUP command: $comma"); |
Line 948 sub convert_figure {
|
Line 951 sub convert_figure {
|
|
|
&debug("Converting pdf $not_eps to postscript: $eps_f"); |
&debug("Converting pdf $not_eps to postscript: $eps_f"); |
system("pdftops $not_eps $eps_f"); |
system("pdftops $not_eps $eps_f"); |
|
$pdfs_converted++; # Need to fix ps in last pass. |
} else { |
} else { |
system("convert $not_eps $eps_f"); |
system("convert $not_eps $eps_f"); |
if($? and $advanced_role){ |
if($? and $advanced_role){ |