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

Diff for /loncom/interface/lonspeller.pm between versions 1.11 and 1.13

version 1.11, 2005/04/07 06:56:23 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>'; }
Line 128  sub handler { Line 134  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.11  
changed lines
  Added in v.1.13

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