loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2003/06/06 02:24:49	version 1.28, 2003/06/06 02:29:48
Line 85 use Image::Magick;	Line 85 use Image::Magick;
my $comma = "dvips -Ppdf -G0 -o $new_name_file";	my $comma = "dvips -Ppdf -G0 -o $new_name_file";
system("$comma $name_file 1>/dev/null 2>/dev/null");	system("$comma $name_file 1>/dev/null 2>/dev/null");
if (-e $new_name_file) {	if (-e $new_name_file) {
print "<h1><h1>Successfully created PDF output file (see link below)</h1>\n";	print "<h1>Successfully created PDF output file (see link below)</h1>\n";
$new_name_file =~ m/^(.*)\./;	$new_name_file =~ m/^(.*)\./;
my $tempo_file = $1.'temporar.ps';	my $tempo_file = $1.'temporar.ps';
my $name_file = $1.'.pdf';	my $name_file = $1.'.pdf';