version 1.104, 2006/06/20 09:39:47
|
version 1.108, 2006/08/03 00:26:39
|
Line 487 foreach $texfile (@texfile) {
|
Line 487 foreach $texfile (@texfile) {
|
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement first latex to repaginate", |
"for $status_statement first latex to repaginate", |
\%prog_state, $name_file); |
\%prog_state, $name_file); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
if ($tableofcontents eq 'yes') { |
"for $status_statement second latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement second latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement third latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement third latex to repaginate", |
|
\%prog_state, $name_file); |
|
} |
|
if ($tableofindex eq 'yes') { |
|
my $idxname = $latex_file; |
|
$idxname =~ s/\.tex$/\.idx/; |
|
&busy_wait_command("makindex $idxname", |
|
"Re-creating index file", |
|
\%prog_state, $idxname); |
|
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
|
"for $status_statement now Recreting index (latex)", |
|
\%prog_state, $dvi_file); |
|
|
|
} |
&busy_wait_command("$comma $name_file 1>dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>dev/null 2>/dev/null", |
"for $status_statement dvips to repaginate", |
"for $status_statement dvips to repaginate", |
\%prog_state, $new_name_file); |
\%prog_state, $new_name_file); |
|
|
print "\n<h1>PDF output file (see link below)</h1>\n"; |
print "\n<h1>PDF output file (see link below)</h1>\n"; |
$new_name_file =~ m/^(.*)\./; |
$new_name_file =~ m/^(.*)\./; |
my $ps_file = my $tempo_file = $1.'temporar.ps'; |
my $ps_file = my $tempo_file = $1.'temporar.ps'; |
Line 577 foreach $texfile (@texfile) {
|
Line 589 foreach $texfile (@texfile) {
|
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement first latex to repaginate", |
"for $status_statement first latex to repaginate", |
\%prog_state, $name_file); |
\%prog_state, $name_file); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
if ($tableofcontents eq 'yes') { |
"for $status_statement second latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement second latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement third latex to repaginate", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
\%prog_state, $name_file); |
"for $status_statement third latex to repaginate", |
|
\%prog_state, $name_file); |
|
} |
|
if ($tableofindex eq 'yes') { |
|
my $idxname = $latex_file; |
|
$idxname =~ s/\.tex$/\.idx/; |
|
&busy_wait_command("makeindex $idxname", |
|
"Re-creating index file", |
|
\%prog_state, $idxname); |
|
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
|
"for $status_statement now Recreting index (latex)", |
|
\%prog_state, $dvi_file); |
|
} |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement dvips to repaginate", |
"for $status_statement dvips to repaginate", |
\%prog_state, $new_name_file); |
\%prog_state, $new_name_file); |
Line 676 sub busy_wait_command {
|
Line 700 sub busy_wait_command {
|
|
|
$SIG{CHLD} = \&REAPER; |
$SIG{CHLD} = \&REAPER; |
$done=0; |
$done=0; |
print("<p> Doing : <tt>$command</tt>"); |
|
my $pid=open(CMD,"$command |"); |
my $pid=open(CMD,"$command |"); |
if ($advanced_role) { |
if ($advanced_role) { |
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message); |
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message); |
Line 696 sub busy_wait_command {
|
Line 719 sub busy_wait_command {
|
$SIG{CHLD}='IGNORE'; |
$SIG{CHLD}='IGNORE'; |
close(CMD); |
close(CMD); |
} |
} |
print("<p> End</p>"); |
|
|
|
# Repagninate |
# Repagninate |
# What we need to do: |
# What we need to do: |
Line 808 sub repaginate {
|
Line 830 sub repaginate {
|
my $addlines = $max_pages - $pages_in_student[$student_number]; |
my $addlines = $max_pages - $pages_in_student[$student_number]; |
&Apache::lonnet::logthis("student: $pages_in_student[$student_number] add: $addlines"); |
&Apache::lonnet::logthis("student: $pages_in_student[$student_number] add: $addlines"); |
while($addlines) { |
while($addlines) { |
print LATEXOUT '\pagebreak'; |
print LATEXOUT '\clearpage \strut \clearpage'; |
|
|
$addlines--; |
$addlines--; |
} |
} |
|
|
Line 823 sub repaginate {
|
Line 846 sub repaginate {
|
|
|
close(LATEXIN); |
close(LATEXIN); |
close(LATEXOUT); |
close(LATEXOUT); |
rename($outfilename, $latex_filename); |
rename($outfilename, $latex_filename); |
|
|
} |
} |
|
|