version 1.6, 2004/07/27 23:35:34
|
version 1.9, 2004/12/02 20:54:26
|
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::lontexconvert(); |
use HTML::LCParser; |
use HTML::LCParser; |
use strict; |
use strict; |
|
|
Line 64 sub textsection {
|
Line 65 sub textsection {
|
my $suggestions=join(' ',$speller->suggest($word)); |
my $suggestions=join(' ',$speller->suggest($word)); |
$suggestions=~s/\'/\\\'/gs; |
$suggestions=~s/\'/\\\'/gs; |
if (($suggestions) && (!$insidelink)) { |
if (($suggestions) && (!$insidelink)) { |
$output.='<a href="javascript:alert('."'". |
$output.='<a href="javascript:spellwin=window.open('. |
$suggestions."');". |
&Apache::lonhtmlcommon::javascript_nothing(). |
'">'; |
',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'. |
|
'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\'<html><body><h3>'.$word. |
|
'</h3>'.$suggestions.'</body></html>\');spellwin.document.close();spellwin.focus()">'; |
} |
} |
$output.='<font color="red">'.$word.'</font>'; |
$output.='<font color="red">'.$word.'</font>'; |
if (($suggestions) && (!$insidelink)) { $output.='</a>'; } |
if (($suggestions) && (!$insidelink)) { $output.='</a>'; } |
Line 126 sub handler {
|
Line 129 sub handler {
|
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
&mt('Spell Checker'). |
&mt('Spell Checker'). |
'</title></head><body bgcolor="#DDDDDD">'. |
'</title></head><body bgcolor="#DDDDDD">'. |
&markeduptext($ENV{'form.text'}). |
&Apache::lontexconvert::msgtexconverted( |
|
&markeduptext($ENV{'form.text'})). |
'</body></html>'); |
'</body></html>'); |
return OK; |
return OK; |
} |
} |