loncom/interface/lonspeller.pm - diff

Return to lonspeller.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2005/02/17 08:29:43	version 1.11, 2005/04/07 06:56:23
Line 33 package Apache::lonspeller;	Line 33 package Apache::lonspeller;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Text::Aspell;	use Text::Aspell;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;
use Apache::lontexconvert();	use Apache::lontexconvert();
use HTML::LCParser;	use HTML::LCParser;
use strict;	use strict;
Line 41 my $speller;	Line 42 my $speller;
my $insidelink;	my $insidelink;

sub spellcheck_language {	sub spellcheck_language {
if ($ENV{'form.lang'}) { return $ENV{'form.lang'}; }	if ($env{'form.lang'}) { return $env{'form.lang'}; }
if (&mt('spellcheck_lang') ne 'spellcheck_lang') {	if (&mt('spellcheck_lang') ne 'spellcheck_lang') {
return &mt('spellcheck_lang');	return &mt('spellcheck_lang');
}	}
Line 132 sub handler {	Line 133 sub handler {
&mt('Spell Checker').	&mt('Spell Checker').
'</title></head><body bgcolor="#DDDDDD">'.	'</title></head><body bgcolor="#DDDDDD">'.
&Apache::lontexconvert::msgtexconverted(	&Apache::lontexconvert::msgtexconverted(
&markeduptext($ENV{'form.text'})).	&markeduptext($env{'form.text'})).
'</body></html>');	'</body></html>');
return OK;	return OK;
}	}