--- loncom/interface/lonspeller.pm 2004/12/02 20:54:26 1.9 +++ loncom/interface/lonspeller.pm 2005/02/17 08:29:43 1.10 @@ -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.10 2005/02/17 08:29:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,10 +65,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,7 +127,8 @@ 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(