loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.139, 2009/03/24 10:15:15	version 1.140, 2009/03/24 10:29:39
Line 404 foreach $texfile (@texfile) {	Line 404 foreach $texfile (@texfile) {
if ($papera eq 'letter') {$papera='';}	if ($papera eq 'letter') {$papera='';}
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';
&Apache::lonnet::logthis("Extra ps header: $extra_ps_header");
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";
&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);