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

Diff for /loncom/interface/printout.pl between versions 1.159 and 1.162

version 1.159, 2014/02/28 19:20:06 version 1.162, 2016/05/21 21:15:36
Line 209  if ($student_names=~/_END_/) { Line 209  if ($student_names=~/_END_/) {
     @names_pack=split(/_ENDPERSON_/,$student_names);      @names_pack=split(/_ENDPERSON_/,$student_names);
 }  }
 if ($backref) {  if ($backref) {
     print('<p>'.&mt("[_1]Return[_2] to editing resource.",      print('<p>'.&mt("[_1]Return[_2] to resource.",
     "<a href=\"$backref\"><b>","</b></a>").'</p>');      "<a href=\"$backref\"><b>","</b></a>").'</p>');
       print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'.
           &mt("Change Printing Options").'</a></p>'."\n");
 }  }
 my $figfile = $texfile;  my $figfile = $texfile;
 $figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;  $figfile =~ s/^(.*_printout)_\d+_\d+_\d+\.tex/$1\.dat/;
Line 438  foreach $texfile (@texfile) { Line 440  foreach $texfile (@texfile) {
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
   my $new_name_file = $name_file;    my $new_name_file = $name_file;
   $new_name_file =~ s/\.dvi/\.ps/;    $new_name_file =~ s/\.dvi/\.ps/;
   # Explicitly include a switch for papertype, otherwise dvips will default
   # to whatever is listed first in config.ps (which in most cases is a4).
   # Historically (since 2004) LON-CAPA printing expected to use the default,
   # i.e., a papertype of a4, when the user selected letter [8 1/2 x 11 in] 
   # in the Layout options, so I follow that convention if $papera is letter.  
   my $papera=$paper;    my $papera=$paper;
   if ($papera eq 'letter') {$papera='';}    if ($papera eq 'letter') {$papera=' a4';}
   if ($papera ne '') {$papera='-t'.$papera;}    if ($papera ne '') {$papera='-t'.$papera;}
   my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';    my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
   my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";    my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o  $new_name_file";
Line 933  sub convert_figure { Line 940  sub convert_figure {
   
     # Spaces are problematic for system commands and LaTeX, replace with _      # Spaces are problematic for system commands and LaTeX, replace with _
   
     $eps_f  =~ s/ /\_/g;       $eps_f  =~ s/ /\_/g;
   
     #       # 
     # If the file is already an .eps or .ps file (eps_f still has the original      # If the file is already an .eps or .ps file (eps_f still has the original
Removed from v.1.159  
changed lines
  Added in v.1.162

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