[BACK]Return to lonspeller.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonspeller.pm between versions 1.1 and 1.4

version 1.1, 2004/07/22 16:17:43 version 1.4, 2004/07/22 23:50:55
Line 33  package Apache::lonspeller; Line 33  package Apache::lonspeller;
 use Text::Aspell;  use Text::Aspell;
 use Apache::lonlocal;  use Apache::lonlocal;
 use strict;  use strict;
   my $speller;
   
 sub getspeller {  sub spellcheck_language {
     my $speller = Text::Aspell->new;      if ($ENV{'form.lang'}) { return $ENV{'form.lang'}; }
     $speller->set_option('lang','en_US');      if (&mt('spellcheck_lang') ne 'spellcheck_lang') {
     $speller->set_option('sug-mode','fast');   return &mt('spellcheck_lang');
     return $speller;      }
       return 'en_US';
   }
   
   sub set_language {
       my $lang=&spellcheck_language();
       $speller->set_option('lang',$lang);
   }
   
   sub markeduptext {
       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.='<a href="javascript:alert('."'".
       $suggestions."');".
       '">';
       }
       $output.='<font color="red">'.$word.'</font>';
       if ($suggestions) { $output.='</a>'; }
       $output.=' ';
    }
       }
       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('<html><head><title>'.
         &mt('Spell Checker').
         '</title></head><body bgcolor="#DDDDDD">'.
         &markeduptext($ENV{'form.text'}).
         '</body></html>');
       return OK;
   }
   
   BEGIN {
       &initspeller();
 }  }
   
 1;  1;
Removed from v.1.1  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>