--- loncom/interface/printout.pl 2003/05/19 17:17:20 1.24 +++ loncom/interface/printout.pl 2003/05/28 21:25:33 1.25 @@ -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/; @@ -85,7 +96,7 @@ use Image::Magick; 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';