--- loncom/interface/printout.pl 2003/06/04 23:38:14 1.26 +++ loncom/interface/printout.pl 2003/06/06 02:24:49 1.27 @@ -2,18 +2,7 @@ use IO::File; use Image::Magick; print "Content-type: text/html\n\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"; + print "\n"; my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); my $figfile = $texfile; $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; @@ -96,7 +85,7 @@ ENDSCRIPT 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 "

Successfully created PDF output file (click on link below)

\n"; + print "

Successfully created PDF output file (see link below)

\n"; $new_name_file =~ m/^(.*)\./; my $tempo_file = $1.'temporar.ps'; my $name_file = $1.'.pdf';