--- loncom/interface/printout.pl 2024/07/11 15:24:01 1.172 +++ loncom/interface/printout.pl 2024/10/16 17:48:08 1.173 @@ -1,7 +1,7 @@ #!/usr/bin/perl # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. # -# $Id: printout.pl,v 1.172 2024/07/11 15:24:01 raeburn Exp $ +# $Id: printout.pl,v 1.173 2024/10/16 17:48:08 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -447,12 +447,10 @@ foreach $texfile (@texfile) { $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; - if ($papera eq 'letter') {$papera='a4';} - if ($papera ne '') {$papera='-t'.$papera;} + my $papera; + unless ($paper eq '') { + $papera='-t'.$paper; + } my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps'; my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file"; &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",