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

Diff for /loncom/interface/printout.pl between versions 1.23 and 1.24

version 1.23, 2003/04/01 04:30:11 version 1.24, 2003/05/19 17:17:20
Line 83  use Image::Magick; Line 83  use Image::Magick;
       my $new_name_file = $name_file;        my $new_name_file = $name_file;
       $new_name_file =~ s/\.dvi/\.ps/;        $new_name_file =~ s/\.dvi/\.ps/;
       my $comma = "dvips -Ppdf -G0 -o $new_name_file";        my $comma = "dvips -Ppdf -G0 -o $new_name_file";
       system("$comma $name_file");        system("$comma $name_file 1>/dev/null 2>/dev/null");
       if (-e $new_name_file) {        if (-e $new_name_file) {
   print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";    print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";
   $new_name_file =~ m/^(.*)\./;    $new_name_file =~ m/^(.*)\./;
Line 91  use Image::Magick; Line 91  use Image::Magick;
   my $name_file = $1.'.pdf';    my $name_file = $1.'.pdf';
   if ($laystyle eq 'album' and $numberofcolumns eq '2') {    if ($laystyle eq 'album' and $numberofcolumns eq '2') {
       $comma = "psnup -2 -s1.0 $new_name_file";        $comma = "psnup -2 -s1.0 $new_name_file";
       system("$comma $tempo_file");         system("$comma $tempo_file 1>/dev/null 2>/dev/null"); 
       system("ps2pdf $tempo_file $name_file");        system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");
   } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {    } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
       $comma = 'pstops -pletter "2:0+1(0.48w,0)"';        $comma = 'pstops -pletter "2:0+1(0.48w,0)"';
       system("$comma $new_name_file $tempo_file");        system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null");
       system("ps2pdf $tempo_file $name_file");        system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null");
   } else {    } else {
       system("ps2pdf $new_name_file $name_file");        system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null");
   }        }    
   my $texlog = $texfile;    my $texlog = $texfile;
   my $texaux = $texfile;    my $texaux = $texfile;
Removed from v.1.23  
changed lines
  Added in v.1.24

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