--- loncom/interface/lonspeller.pm 2004/07/22 19:43:46 1.2 +++ loncom/interface/lonspeller.pm 2004/07/22 20:19:20 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Interface routines for Aspell # -# $Id: lonspeller.pm,v 1.2 2004/07/22 19:43:46 www Exp $ +# $Id: lonspeller.pm,v 1.3 2004/07/22 20:19:20 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,11 +58,33 @@ sub markeduptext { return $output; } +sub initspeller { + unless (defined($speller)) { + $speller = Text::Aspell->new; + $speller->set_option('lang','en_US'); + $speller->set_option('sug-mode','fast'); + } +} + +sub handler { + my $r = shift; + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + return OK if $r->header_only; + + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); + + &initspeller(); + $r->print(''. + &mt('Spell Checker'). + ''. + &markeduptext($ENV{'form.text'}). + ''); + return OK; +} + BEGIN { - $speller = Text::Aspell->new; - $speller->set_option('lang','en_US'); - $speller->set_option('sug-mode','fast'); -# $speller->set_option('mode','sgml'); + &initspeller(); } 1;