[BACK]Return to lonspeller.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonspeller.pm between versions 1.6 and 1.10

version 1.6, 2004/07/27 23:35:34 version 1.10, 2005/02/17 08:29:43
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('."'".   my $html=&Apache::lonxml::xmlbegin('encode');
     $suggestions."');".   $output.='<a href="javascript:spellwin=window.open('.
     '">';      &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.'<head></head><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 123  sub handler { Line 127  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
     &initspeller();      &initspeller();
     $r->print('<html><head><title>'.      my $html=&Apache::lonxml::xmlbegin();
       $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;
 }  }
Removed from v.1.6  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>