version 1.104, 2006/06/20 09:39:47
|
version 1.106, 2006/06/26 21:18:43
|
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 808 sub repaginate {
|
Line 832 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 '\linebreak \strut \pagebreak'; |
|
|
$addlines--; |
$addlines--; |
} |
} |
|
|