--- loncom/interface/printout.pl 2003/03/05 16:28:04 1.22 +++ loncom/interface/printout.pl 2003/06/04 23:38:14 1.26 @@ -2,7 +2,18 @@ use IO::File; use Image::Magick; print "Content-type: text/html\n\n"; - print "\n"; +print (< +function LONCAPAreg() { + swmenu=window.open('',"LCmenumsul1","",false);swmenu.windowloaded(self.name); +} + +function LONCAPAstale() { + swmenu=window.open('',"LCmenumsul1","",false);swmenu.windowunloaded(self.name); +} + +ENDSCRIPT + print "\n"; my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); my $figfile = $texfile; $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; @@ -82,23 +93,23 @@ use Image::Magick; $name_file =~ s/\.tex/\.dvi/; my $new_name_file = $name_file; $new_name_file =~ s/\.dvi/\.ps/; - my $comma = "dvips -o $new_name_file"; - system("$comma $name_file"); + my $comma = "dvips -Ppdf -G0 -o $new_name_file"; + system("$comma $name_file 1>/dev/null 2>/dev/null"); if (-e $new_name_file) { - print "

OUTPUT is in the PDF FILE (see link below)

\n"; + print "

Successfully created PDF output file (click on link below)

\n"; $new_name_file =~ m/^(.*)\./; my $tempo_file = $1.'temporar.ps'; my $name_file = $1.'.pdf'; if ($laystyle eq 'album' and $numberofcolumns eq '2') { $comma = "psnup -2 -s1.0 $new_name_file"; - system("$comma $tempo_file"); - system("ps2pdf $tempo_file $name_file"); + system("$comma $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { $comma = 'pstops -pletter "2:0+1(0.48w,0)"'; - system("$comma $new_name_file $tempo_file"); - system("ps2pdf $tempo_file $name_file"); + system("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null"); + system("ps2pdf $tempo_file $name_file 1>/dev/null 2>/dev/null"); } else { - system("ps2pdf $new_name_file $name_file"); + system("ps2pdf $new_name_file $name_file 1>/dev/null 2>/dev/null"); } my $texlog = $texfile; my $texaux = $texfile;