|
version 1.12, 2006/03/15 19:41:26
|
version 1.13, 2006/03/21 20:19:41
|
|
Line 66 sub textsection {
|
Line 66 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)) { |
| my $html=&Apache::lonxml::xmlbegin('encode'); |
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}); |
| $output.='<a href="javascript:spellwin=window.open('. |
$output.='<a href="javascript:spellwin=window.open('. |
| &Apache::lonhtmlcommon::javascript_nothing(). |
&Apache::lonhtmlcommon::javascript_nothing(). |
| ',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'. |
',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'. |
| 'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\''.$html.'<head></head><body><h3>'.$word. |
'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\''.$start_page.'<h3>'.$word. |
| '</h3>'.$suggestions.'</body></html>\');spellwin.document.close();spellwin.focus()">'; |
'</h3>'.$suggestions.$end_page.'\');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>'; } |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonspeller.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface