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

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

version 1.104, 2006/06/20 09:39:47 version 1.105, 2006/06/26 10:11:48
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 This page left intentionally blank \pagebreak';
   
  $addlines--;   $addlines--;
     }      }
           
Removed from v.1.104  
changed lines
  Added in v.1.105

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