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

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

version 1.10, 2005/02/17 08:29:43 version 1.12, 2006/03/15 19:41: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::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 127  sub handler { Line 128  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
     &initspeller();      &initspeller();
     my $html=&Apache::lonxml::xmlbegin();      my $html = &Apache::lonxml::xmlbegin();
     $r->print($html.'<head><title>'.      my $head = &Apache::loncommon::head('Spell Checker');
       &mt('Spell Checker').      $r->print($html.$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>');        &Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   
Removed from v.1.10  
changed lines
  Added in v.1.12

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