loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.172, 2024/07/11 15:24:01	version 1.173, 2024/10/16 17:48:08
Line 447 foreach $texfile (@texfile) {	Line 447 foreach $texfile (@texfile) {
$new_name_file =~ s/\.dvi/\.ps/;	$new_name_file =~ s/\.dvi/\.ps/;
# Explicitly include a switch for papertype, otherwise dvips will default	# Explicitly include a switch for papertype, otherwise dvips will default
# to whatever is listed first in config.ps (which in most cases is a4).	# 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,	my $papera;
# i.e., a papertype of a4, when the user selected letter [8 1/2 x 11 in]	unless ($paper eq '') {
# in the Layout options, so I follow that convention if $papera is letter.	$papera='-t'.$paper;
my $papera=$paper;	}
if ($papera eq 'letter') {$papera='a4';}
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";
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",	&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",