[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.103 and 1.104

version 1.103, 2006/06/19 22:30:15 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 789  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 805  sub repaginate { Line 813  sub repaginate {
     }      }
           
     $student_number++;      $student_number++;
       &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state, 
     "Repaginating student ".$student_number+1);
           
  } else {   } else {
     print LATEXOUT $line;      print LATEXOUT $line;
Removed from v.1.103  
changed lines
  Added in v.1.104

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>