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; |
} |
} |