loncom/interface/lonspeller.pm - diff

Return to lonspeller.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.3, 2004/07/22 20:19:20	version 1.4, 2004/07/22 23:50:55
Line 35 use Apache::lonlocal;	Line 35 use Apache::lonlocal;
use strict;	use strict;
my $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 markeduptext {	sub markeduptext {
my $input=shift;	my $input=shift;
my $output='';	my $output='';
	&set_language();
foreach my $word (split(/\W+/,$input)) {	foreach my $word (split(/\W+/,$input)) {
if ($speller->check($word)) {	if ($speller->check($word)) {
$output.=$word.' ';	$output.=$word.' ';