loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.84, 2004/07/26 21:57:27
+version 1.85, 2004/07/27 23:35:34
  Line 869  sub crumbs {
      return $output.'</font>'.($noformat?'':'</b></tt><br />');
  }
+ # --------------------- A function that generates a window for the spellchecker
+ sub spellheader {
+     my $nothing = &javascript_nothing();
+     return (<<ENDCHECK);
+ <script type="text/javascript">
+ var checkwin;
+ function spellcheckerwindow() {
+     checkwin=window.open($nothing,'spellcheckwin','height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
+     checkwin.document.writeln('<html><body bgcolor="#DDDDDD"><form name="spellcheckform" action="/adm/spellcheck" method="post"><input type="hidden" name="text" value="" /></form></body></html>');
+     checkwin.document.close();
+ }
+ </script>
+ ENDCHECK
+ }
+ # ---------------------------------- Generate link to spell checker for a field
+ sub spelllink {
+     my ($form,$field)=@_;
+     my $linktext=&mt('Check Spelling');
+     return (<<ENDLINK);
+ <a href="javascript:if (typeof(document.$form.onsubmit)!='undefined') { document.$form.onsubmit();};spellcheckerwindow();checkwin.document.forms.spellcheckform.text.value=this.document.forms.$form.$field.value;checkwin.document.forms.spellcheckform.submit();">$linktext</a>
+ ENDLINK
+ }
  # ------------------------------------------------- Output headers for HTMLArea
  sub htmlareaheaders {