[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[raeburn]

raeburn		Mon Oct 21 19:32:10 2024 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  - Bug 5919
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.174 loncom/interface/printout.pl:1.175
--- loncom/interface/printout.pl:1.174	Sat Oct 19 05:33:45 2024
+++ loncom/interface/printout.pl	Mon Oct 21 19:32:10 2024
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.174 2024/10/19 05:33:45 raeburn Exp $
+# $Id: printout.pl,v 1.175 2024/10/21 19:32:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -581,7 +581,8 @@
 	      } else {
 		  $ps_file=$new_name_file;
 	      }
-	      my $addtoPSfile={'legal'=>'<< /PageSize [612 1008] >> setpagedevice',
+              my $addtoPSfile={'letter'=>'<< /PageSize [612 792] >> setpagedevice',
+                               'legal'=>'<< /PageSize [612 1008] >> setpagedevice',
                                'tabloid'=>'<< /PageSize [792 1224] >> setpagedevice',
                                'executive'=>,'<< /PageSize [540 720] >> setpagedevice',
                                'a2'=>'<< /PageSize [1195.02 1690.09] >> setpagedevice',
@@ -589,7 +590,7 @@
                                'a4'=>'<< /PageSize [595.2 842] >> setpagedevice',
                                'a5'=>'<< /PageSize [421.1 595.2] >> setpagedevice',
                                'a6'=>'<< /PageSize [298.75 421.1] >> setpagedevice',
-			   };
+                              };
 	      open(FFH,'<',$ps_file) || die "Couldn't open ps file $ps_file for reading: $!\n";
 	      my $new_ps_file='new'.$ps_file;
 	      open(FFHS,'>',$new_ps_file) || die "Couldn't open new ps file $new_ps_file for reading: $!\n";