--- loncom/interface/lonspeller.pm	2006/03/23 23:43:13	1.15
+++ loncom/interface/lonspeller.pm	2006/03/24 21:40:11	1.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines for Aspell
 #
-# $Id: lonspeller.pm,v 1.15 2006/03/23 23:43:13 albertel Exp $
+# $Id: lonspeller.pm,v 1.16 2006/03/24 21:40:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,6 +54,13 @@ sub set_language {
     $speller->set_option('lang',$lang);
 }
 
+{
+    my $uniq;
+    sub get_uniq {
+	return ++$uniq;
+    }
+}
+
 sub textsection {
     my $input=shift;
     my $output='';
@@ -64,22 +71,29 @@ sub textsection {
 	    $output.=$word;
 	} else {
 	    my $suggestions=join(' ',$speller->suggest($word));
-	    $suggestions=~s/\'/\\\'/gs;
+	    $suggestions = "<script>alert('sug')</script>".$suggestions;
+	    $suggestions = &Apache::loncommon::js_ready($suggestions);
 	    if (($suggestions) && (!$insidelink)) {
 		my $start_page=
 		    &Apache::loncommon::start_page('Speller Suggestions',undef,
 						   {'only_body'   => 1,
 						    'js_ready'    => 1,
-						    'html_encode' => 1,
 						    'bgcolor'     => '#FFFFFF'});
 		my $end_page=
-		    &Apache::loncommon::end_page({'js_ready'    => 1,
-						  'html_encode' => 1,});
-		$output.='<a href="javascript:spellwin=window.open('.
-		    &Apache::lonhtmlcommon::javascript_nothing().
-		    ',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'.
-                    'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\''.$start_page.'<h3>'.$word.
-                    '</h3>'.$suggestions.$end_page.'\');spellwin.document.close();spellwin.focus()">';
+		    &Apache::loncommon::end_page({'js_ready'    => 1,});
+		my $num = &get_uniq();
+		my $info  ='<h3>'.$word.'</h3>'.$suggestions;
+		$output .= "<script type=\"text/javascript\">
+//<!--
+ function LONCAPA_lonspeller_$num() {
+    spellwin=open(".&Apache::lonhtmlcommon::javascript_nothing().",'spellwin','width=140,height=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
+    spellwin.".&Apache::lonhtmlcommon::javascript_docopen().";
+    spellwin.document.writeln('$start_page $info $end_page');
+    spellwin.document.close();
+    spellwin.focus();
+}
+//-->
+</script><a href=\"javascript:LONCAPA_lonspeller_$num();void(0);\">";
 	    }
 	    $output.='<font color="red">'.$word.'</font>';
 	    if (($suggestions) && (!$insidelink)) { $output.='</a>'; }