# The LearningOnline Network with CAPA # Interface routines for Aspell # # $Id: lonspeller.pm,v 1.17 2006/07/03 13:40:42 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # ###################################################################### ###################################################################### 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; my $speller; my $insidelink; 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); } { my $uniq; sub get_uniq { return ++$uniq; } } sub textsection { my $input=shift; my $output=''; &set_language(); foreach my $word (split(/\b/,$input)) { if (($word=~/\W/) || ($word=~/^(lt|gt|nbsp|amp)$/i) || ($speller->check($word))) { $output.=$word; } else { my $suggestions=join(' ',$speller->suggest($word)); $suggestions = &Apache::loncommon::js_ready($suggestions); if (($suggestions) && (!$insidelink)) { my $start_page= &Apache::loncommon::start_page('Speller Suggestions',undef, {'only_body' => 1, 'js_ready' => 1, 'bgcolor' => '#FFFFFF'}); my $end_page= &Apache::loncommon::end_page({'js_ready' => 1,}); my $num = &get_uniq(); my $info ='