--- loncom/interface/lonhtmlcommon.pm	2004/07/19 17:57:01	1.82
+++ loncom/interface/lonhtmlcommon.pm	2004/08/05 16:59:29	1.86
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.82 2004/07/19 17:57:01 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.86 2004/08/05 16:59:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -869,6 +869,35 @@ 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"> 
+// BEGIN LON-CAPA Internal
+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();
+}
+// END LON-CAPA Internal
+</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 {
@@ -1077,12 +1106,7 @@ returns: nothing
         #
         if (defined($component)) {
             $Str .= '<td align="right" bgcolor="'.$color.'">'.
-                '<font size="+1">'.&mt($component).'</font>';
-            if (defined($component_help)) {
-                $Str .= 
-                    &Apache::loncommon::help_open_topic($component_help);
-            }
-            $Str.= '</td>';
+                '<font size="+1">'.&mt($component).'</font></td>';
         }
         $Str .= '</tr></table>'."\n";
         #
