loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.138, 2009/02/19 10:19:49	version 1.139, 2009/03/24 10:15:15
Line 403 foreach $texfile (@texfile) {	Line 403 foreach $texfile (@texfile) {
my $papera=$paper;	my $papera=$paper;
if ($papera eq 'letter') {$papera='';}	if ($papera eq 'letter') {$papera='';}
if ($papera ne '') {$papera='-t'.$papera;}	if ($papera ne '') {$papera='-t'.$papera;}
my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";	my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
	&Apache::lonnet::logthis("Extra ps header: $extra_ps_header");
	my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file";
	&Apache::lonnet::logthis("dvips command: $comma");
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",	&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
"for $status_statement now Converting to PS",	"for $status_statement now Converting to PS",
\%prog_state,$new_name_file);	\%prog_state,$new_name_file);