--- loncom/interface/lonspeller.pm 2004/12/02 20:54:26 1.9 +++ loncom/interface/lonspeller.pm 2005/04/07 06:56:23 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Interface routines for Aspell # -# $Id: lonspeller.pm,v 1.9 2004/12/02 20:54:26 albertel Exp $ +# $Id: lonspeller.pm,v 1.11 2005/04/07 06:56:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,7 @@ package Apache::lonspeller; use Apache::Constants qw(:common); use Text::Aspell; use Apache::lonlocal; +use Apache::lonnet; use Apache::lontexconvert(); use HTML::LCParser; use strict; @@ -41,7 +42,7 @@ my $speller; my $insidelink; sub spellcheck_language { - if ($ENV{'form.lang'}) { return $ENV{'form.lang'}; } + if ($env{'form.lang'}) { return $env{'form.lang'}; } if (&mt('spellcheck_lang') ne 'spellcheck_lang') { return &mt('spellcheck_lang'); } @@ -65,10 +66,11 @@ sub textsection { my $suggestions=join(' ',$speller->suggest($word)); $suggestions=~s/\'/\\\'/gs; if (($suggestions) && (!$insidelink)) { + my $html=&Apache::lonxml::xmlbegin('encode'); $output.=''; } $output.=''.$word.''; @@ -126,11 +128,12 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); &initspeller(); - $r->print(''. + my $html=&Apache::lonxml::xmlbegin(); + $r->print($html.'<head><title>'. &mt('Spell Checker'). ''. &Apache::lontexconvert::msgtexconverted( - &markeduptext($ENV{'form.text'})). + &markeduptext($env{'form.text'})). ''); return OK; }