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

Diff for /loncom/interface/printout.pl between versions 1.63 and 1.64

version 1.63, 2004/08/05 18:18:15 version 1.64, 2004/08/12 17:19:25
Line 365  foreach $texfile (@texfile) { Line 365  foreach $texfile (@texfile) {
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);       \%prog_state,$tempo_file);
       } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {        } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
   my @papers=('letter','legal','tabloid','executive','','a3','a4','a5','');    $comma = 'pstops "2:0+1(0.48w,0)"';
                   my $papera=$papers[$paper];  
   if ($papera ne '') {$papera='-p'.$papera;}  
   $comma = 'pstops -pa4 "2:0+1(0.48w,0)"';  
   &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",    &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
      "for $status_statement now Modifying PS layout",       "for $status_statement now Modifying PS layout",
      \%prog_state,$tempo_file);        \%prog_state,$tempo_file); 
       } else {        } else {
   $ps_file=$new_name_file;    $ps_file=$new_name_file;
       }        }
       if ($paper eq '6') {        if (($paper eq '6') or ($paper eq '1') or ($paper eq '2') or ($paper eq '3') 
                  or ($paper eq '4') or ($paper eq '5') or ($paper eq '7') or ($paper eq '8')) {
   open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n";    open(FFH,'<',$ps_file) || die "Couldn't open file for reading: $!\n";
   my $new_ps_file='new'.$ps_file;    my $new_ps_file='new'.$ps_file;
   open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n";    open(FFHS,'>',$new_ps_file) || die "Couldn't open file for reading: $!\n";
   my $i=-1;    my $i=-1;
   while (<FFH>) {    while (<FFH>) {
       $i++;        $i++;
       if ($i==0) {print FFHS '<< /PageSize [595.2 842] >> setpagedevice'."\n";}         if ($i==0) {
     if ($paper eq '6') {print FFHS '<< /PageSize [595.2 842] >> setpagedevice'."\n";}
     if ($paper eq '1') {print FFHS '<< /PageSize [612 1008] >> setpagedevice'."\n";}
     if ($paper eq '2') {print FFHS '<< /PageSize [794.97 1228.59] >> setpagedevice'."\n";}
     if ($paper eq '3') {print FFHS '<< /PageSize [542 722.7] >> setpagedevice'."\n";}
     if ($paper eq '4') {print FFHS '<< /PageSize [1195.02 1690.09] >> setpagedevice'."\n";}
     if ($paper eq '5') {print FFHS '<< /PageSize [842 1195.02] >> setpagedevice'."\n";}
     if ($paper eq '7') {print FFHS '<< /PageSize [421.1 595.2] >> setpagedevice'."\n";}
     if ($paper eq '8') {print FFHS '<< /PageSize [298.75 421.1] >> setpagedevice'."\n";}
         } 
       print FFHS $_;        print FFHS $_;
   }    }
   close(FFH);    close(FFH);
Removed from v.1.63  
changed lines
  Added in v.1.64

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