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

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

version 1.13, 2006/03/21 20:19:41 version 1.17, 2006/07/03 13:40:42
Line 54  sub set_language { Line 54  sub set_language {
     $speller->set_option('lang',$lang);      $speller->set_option('lang',$lang);
 }  }
   
   {
       my $uniq;
       sub get_uniq {
    return ++$uniq;
       }
   }
   
 sub textsection {  sub textsection {
     my $input=shift;      my $input=shift;
     my $output='';      my $output='';
Line 64  sub textsection { Line 71  sub textsection {
     $output.=$word;      $output.=$word;
  } else {   } else {
     my $suggestions=join(' ',$speller->suggest($word));      my $suggestions=join(' ',$speller->suggest($word));
     $suggestions=~s/\'/\\\'/gs;      $suggestions = &Apache::loncommon::js_ready($suggestions);
     if (($suggestions) && (!$insidelink)) {      if (($suggestions) && (!$insidelink)) {
  my $start_page=   my $start_page=
     &Apache::loncommon::start_page('Speller Suggestions',undef,      &Apache::loncommon::start_page('Speller Suggestions',undef,
    {'only_body' => 1,     {'only_body'   => 1,
     'js_ready'  => 1,      'js_ready'    => 1,
     'bgcolor'   => '#FFFFFF'});      'bgcolor'     => '#FFFFFF'});
  my $end_page=   my $end_page=
     &Apache::loncommon::end_page({'js_ready'  => 1});      &Apache::loncommon::end_page({'js_ready'    => 1,});
  $output.='<a href="javascript:spellwin=window.open('.   my $num = &get_uniq();
     &Apache::lonhtmlcommon::javascript_nothing().   my $info  ='<h3>'.$word.'</h3>'.$suggestions;
     ',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'.   $output .= "<script type=\"text/javascript\">
                     'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen().';spellwin.document.writeln(\''.$start_page.'<h3>'.$word.  //<!--
                     '</h3>'.$suggestions.$end_page.'\');spellwin.document.close();spellwin.focus()">';   function LONCAPA_lonspeller_$num() {
       spellwin=open(".&Apache::lonhtmlcommon::javascript_nothing().",'spellwin','width=140,height=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
       spellwin.".&Apache::lonhtmlcommon::javascript_docopen().";
       spellwin.document.writeln('$start_page $info $end_page');
       spellwin.document.close();
       spellwin.focus();
   }
   //-->
   </script><a href=\"javascript:LONCAPA_lonspeller_$num();void(0);\">";
     }      }
     $output.='<font color="red">'.$word.'</font>';      $output.='<font color="red">'.$word.'</font>';
     if (($suggestions) && (!$insidelink)) { $output.='</a>'; }      if (($suggestions) && (!$insidelink)) { $output.='</a>'; }
Line 134  sub handler { Line 149  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 $start_page = 
     my $head = &Apache::loncommon::head('Spell Checker');   &Apache::loncommon::start_page('Spell Checker',undef,
     $r->print($html.$head.'<body bgcolor="#DDDDDD">'.         {'only_body' => 1,
    'bgcolor'   => '#DDDDDD'});
       $r->print($start_page.
       &Apache::lontexconvert::msgtexconverted(        &Apache::lontexconvert::msgtexconverted(
      &markeduptext($env{'form.text'})).       &markeduptext($env{'form.text'})).
       &Apache::loncommon::end_page());        &Apache::loncommon::end_page());
Removed from v.1.13  
changed lines
  Added in v.1.17

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