--- loncom/interface/lonspeller.pm 2004/07/22 16:17:43 1.1
+++ loncom/interface/lonspeller.pm 2004/07/23 19:47:57 1.5
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Interface routines for Aspell
#
-# $Id: lonspeller.pm,v 1.1 2004/07/22 16:17:43 www Exp $
+# $Id: lonspeller.pm,v 1.5 2004/07/23 19:47:57 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,15 +30,99 @@
package Apache::lonspeller;
+use Apache::Constants qw(:common);
use Text::Aspell;
use Apache::lonlocal;
+use HTML::LCParser;
use strict;
-sub getspeller {
- my $speller = Text::Aspell->new;
- $speller->set_option('lang','en_US');
- $speller->set_option('sug-mode','fast');
- return $speller;
+my $speller;
+
+sub spellcheck_language {
+ if ($ENV{'form.lang'}) { return $ENV{'form.lang'}; }
+ if (&mt('spellcheck_lang') ne 'spellcheck_lang') {
+ return &mt('spellcheck_lang');
+ }
+ return 'en_US';
+}
+
+sub set_language {
+ my $lang=&spellcheck_language();
+ $speller->set_option('lang',$lang);
+}
+
+sub textsection {
+ my $input=shift;
+ my $output='';
+ &set_language();
+ foreach my $word (split(/\W+/,$input)) {
+ if ($speller->check($word)) {
+ $output.=$word.' ';
+ } else {
+ my $suggestions=join(' ',$speller->suggest($word));
+ &Apache::lonnet::logthis($suggestions);
+ $suggestions=~s/\'/\\\'/gs;
+ if ($suggestions) {
+ $output.='';
+ }
+ $output.=''.$word.'';
+ if ($suggestions) { $output.=''; }
+ $output.=' ';
+ }
+ }
+ return $output;
+}
+
+
+sub markeduptext {
+ my $input=shift;
+ my $output='';
+ my $parser=HTML::LCParser->new(\$input);
+ my $token;
+ while ($token=$parser->get_token) {
+ if ($token->[0] eq 'T') {
+ $output.=&textsection($token->[1]);
+ } elsif ($token->[0] eq 'S') {
+ $output.=$token->[4];
+ if ($token->[1] eq 'm') {
+ $output.=$parser->get_text('/m');
+ }
+ } elsif ($token->[0] eq 'E') {
+ $output.=$token->[2];
+ }
+ }
+ 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 {
+ &initspeller();
}
1;