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

Diff for /loncom/interface/lonprintout.pm between versions 1.550 and 1.551

version 1.550, 2009/04/17 10:08:42 version 1.551, 2009/04/20 09:57:17
Line 163  sub include_pdf { Line 163  sub include_pdf {
     $base =~ s/ /\_/g;      $base =~ s/ /\_/g;
   
   
     my $output = &print_latex_header()."\\begin{document}\n";      my $output = &print_latex_header();
     $output    .= '\special{ps: _begin_job_ ('      $output    .= '\special{ps: _begin_job_ ('
  .$base.'.pdf.eps'.   .$base.'.pdf.eps'.
  ')run _end_job_}';   ')run _end_job_}';
Line 1474  sub print_construction_sequence { Line 1474  sub print_construction_sequence {
     }      }
  }   }
  elsif ($urlp =~ /\.pdf$/i) {   elsif ($urlp =~ /\.pdf$/i) {
     $result .= &include_pdf($urlp);      &Apache::lonnet::logthis("include_pdf 3");
       
       my $texversion = &include_pdf($urlp);
       $texversion = &latex_header_footer_remove($texversion);
       $result .= $texversion;
  }   }
     }      }
     if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}      if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
Line 1692  ENDPART Line 1696  ENDPART
  && $currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {   && $currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {
             #printing content of sequence from the construction space              #printing content of sequence from the construction space
     $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;      $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
     $result .= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});  #    $result .= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
     $result .= &print_construction_sequence($currentURL, $helper, %form,      $result .= &print_construction_sequence($currentURL, $helper, %form,
     $LaTeXwidth);      $LaTeXwidth);
     $result .= '\end{document}';        $result .= '\end{document}';  
Line 1724  ENDPART Line 1728  ENDPART
     $do_postprocessing = 0; # Don't massage the result.      $do_postprocessing = 0; # Don't massage the result.
   
  } elsif ($cleanURL =~ /\.pdf$/i) {   } elsif ($cleanURL =~ /\.pdf$/i) {
       &Apache::lonnet::logthis("include_pdf 1");
     $result .= &include_pdf($cleanURL);      $result .= &include_pdf($cleanURL);
       $result .= '\end{document}';
  } else {   } else {
     $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},      $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
   $helper->{'VARS'}->{'symb'});    $helper->{'VARS'}->{'symb'});
Line 1882  ENDPART Line 1888  ENDPART
  if ($i > 0) {   if ($i > 0) {
     $result .= '\cleardoublepage';      $result .= '\cleardoublepage';
  }   }
    &Apache::lonnet::logthis("include_pdf 2");
   
  $result .= &include_pdf($urlp);   $result .= &include_pdf($urlp);
  if ($i != $#master_seq) {   if ($i != $#master_seq) {
     if ($numberofcolumns eq '1') {      if ($numberofcolumns eq '1') {
Removed from v.1.550  
changed lines
  Added in v.1.551

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