--- loncom/interface/lonspeller.pm 2005/04/07 06:56:23 1.11
+++ loncom/interface/lonspeller.pm 2006/07/03 13:40:42 1.17
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Interface routines for Aspell
#
-# $Id: lonspeller.pm,v 1.11 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonspeller.pm,v 1.17 2006/07/03 13:40:42 raeburn 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,14 +71,28 @@ sub textsection {
$output.=$word;
} else {
my $suggestions=join(' ',$speller->suggest($word));
- $suggestions=~s/\'/\\\'/gs;
+ $suggestions = &Apache::loncommon::js_ready($suggestions);
if (($suggestions) && (!$insidelink)) {
- my $html=&Apache::lonxml::xmlbegin('encode');
- $output.='';
+ my $start_page=
+ &Apache::loncommon::start_page('Speller Suggestions',undef,
+ {'only_body' => 1,
+ 'js_ready' => 1,
+ 'bgcolor' => '#FFFFFF'});
+ my $end_page=
+ &Apache::loncommon::end_page({'js_ready' => 1,});
+ my $num = &get_uniq();
+ my $info =''.$word.'
'.$suggestions;
+ $output .= "";
}
$output.=''.$word.'';
if (($suggestions) && (!$insidelink)) { $output.=''; }
@@ -128,13 +149,14 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
&initspeller();
- my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.'