loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.162, 2016/05/21 21:15:36	version 1.163, 2017/01/29 13:07:14
Line 446 foreach $texfile (@texfile) {	Line 446 foreach $texfile (@texfile) {
# i.e., a papertype of a4, when the user selected letter [8 1/2 x 11 in]	# 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.	# in the Layout options, so I follow that convention if $papera is letter.
my $papera=$paper;	my $papera=$paper;
if ($papera eq 'letter') {$papera=' a4';}	if ($papera eq 'letter') {$papera='a4';}
if ($papera ne '') {$papera='-t'.$papera;}	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";