--- loncom/interface/lonspeller.pm 2005/04/07 06:56:23 1.11
+++ loncom/interface/lonspeller.pm 2006/03/21 20:19:41 1.13
@@ -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.13 2006/03/21 20:19:41 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -66,12 +66,18 @@ sub textsection {
my $suggestions=join(' ',$speller->suggest($word));
$suggestions=~s/\'/\\\'/gs;
if (($suggestions) && (!$insidelink)) {
- my $html=&Apache::lonxml::xmlbegin('encode');
+ 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});
$output.='';
+ 'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\''.$start_page.''.$word.
+ '
'.$suggestions.$end_page.'\');spellwin.document.close();spellwin.focus()">';
}
$output.=''.$word.'';
if (($suggestions) && (!$insidelink)) { $output.=''; }
@@ -128,13 +134,12 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
&initspeller();
- my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.''.
- &mt('Spell Checker').
- ''.
+ my $html = &Apache::lonxml::xmlbegin();
+ my $head = &Apache::loncommon::head('Spell Checker');
+ $r->print($html.$head.''.
&Apache::lontexconvert::msgtexconverted(
&markeduptext($env{'form.text'})).
- '');
+ &Apache::loncommon::end_page());
return OK;
}