--- loncom/interface/lonspeller.pm 2006/03/15 19:41:26 1.12 +++ 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.12 2006/03/15 19:41:26 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.=''; }