version 1.102, 2006/06/19 21:40:29
|
version 1.104, 2006/06/20 09:39:47
|
Line 234 print "<a href=\"$backref\"><b>Return</b
|
Line 234 print "<a href=\"$backref\"><b>Return</b
|
my $prettyname=$not_eps; |
my $prettyname=$not_eps; |
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
$prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; |
$prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
|
'Converting to EPS '.$prettyname); |
} |
} |
$done_conversion{$not_eps}=1; |
$done_conversion{$not_eps}=1; |
# print "Converting $not_eps -> $eps_f"; # Debugging |
# print "Converting $not_eps -> $eps_f"; # Debugging |
Line 728 sub repaginate {
|
Line 729 sub repaginate {
|
my @pages_in_student; # For each student his/her initial page count. |
my @pages_in_student; # For each student his/her initial page count. |
my $max_pages = 0; # Pages in 'longest' student. |
my $max_pages = 0; # Pages in 'longest' student. |
my $page_number = 0; |
my $page_number = 0; |
|
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
|
"Counting pages for student: ".$student_number+1); |
|
|
while ($line = <PSFILE>) { |
while ($line = <PSFILE>) { |
|
|
# Check for total pages (%%Pages:) |
# Check for total pages (%%Pages:) |
Line 756 sub repaginate {
|
Line 760 sub repaginate {
|
if ($line =~ /ENDOFSTUDENTSTAMP/) { |
if ($line =~ /ENDOFSTUDENTSTAMP/) { |
$pages_in_student[$student_number] = $page_number; |
$pages_in_student[$student_number] = $page_number; |
$student_number++; |
$student_number++; |
|
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
|
"Counting pages for student: ".$student_number+1); |
|
|
if ($page_number > $max_pages) { |
if ($page_number > $max_pages) { |
$max_pages = $page_number; |
$max_pages = $page_number; |
} |
} |
Line 769 sub repaginate {
|
Line 775 sub repaginate {
|
close(PSFILE); |
close(PSFILE); |
|
|
# If 2 columns, max_pages must go to an even number of columns: |
# If 2 columns, max_pages must go to an even number of columns: |
|
|
|
&Apache::lonnet::logthis("Before 2 col adjust max-pages = $max_pages"); |
|
|
if ($num_columns == 2) { |
if ($num_columns == 2) { |
if ($max_pages % 2) { |
if ($max_pages % 2) { |
$max_pages++; |
$max_pages++; |
} |
} |
} |
} |
|
&Apache::lonnet::logthis("after adjust: $max_pages"); |
|
|
# Now rewrite the LaTex file, substituting our \special |
# Now rewrite the LaTex file, substituting our \special |
# with an appropriate number of \newpage directives. |
# with an appropriate number of \newpage directives. |
Line 786 sub repaginate {
|
Line 795 sub repaginate {
|
|
|
|
|
$student_number = 0; # first student... |
$student_number = 0; # first student... |
|
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
|
"Repaginating student ".$student_number+1); |
|
|
while (my $line = <LATEXIN>) { |
while (my $line = <LATEXIN>) { |
if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") { |
if ($line eq "\\special{ps:ENDOFSTUDENTSTAMP}\n") { |
Line 795 sub repaginate {
|
Line 806 sub repaginate {
|
# End of student replace with 0 or more newpages. |
# End of student replace with 0 or more newpages. |
|
|
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"); |
while($addlines) { |
while($addlines) { |
print LATEXOUT '\newpage'; |
print LATEXOUT '\pagebreak'; |
$addlines--; |
$addlines--; |
} |
} |
|
|
$student_number++; |
$student_number++; |
|
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, |
|
"Repaginating student ".$student_number+1); |
|
|
} else { |
} else { |
print LATEXOUT $line; |
print LATEXOUT $line; |