loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.22, 2003/03/05 16:28:04	version 1.23, 2003/04/01 04:30:11
Line 82 use Image::Magick;	Line 82 use Image::Magick;
$name_file =~ s/\.tex/\.dvi/;	$name_file =~ s/\.tex/\.dvi/;
my $new_name_file = $name_file;	my $new_name_file = $name_file;
$new_name_file =~ s/\.dvi/\.ps/;	$new_name_file =~ s/\.dvi/\.ps/;
my $comma = "dvips -o $new_name_file";	my $comma = "dvips -Ppdf -G0 -o $new_name_file";
system("$comma $name_file");	system("$comma $name_file");
if (-e $new_name_file) {	if (-e $new_name_file) {
print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";	print "<h1>OUTPUT is in the PDF FILE (see link below)</h1>\n";