--- loncom/interface/lonhtmlcommon.pm	2004/02/16 23:27:03	1.51
+++ loncom/interface/lonhtmlcommon.pm	2004/02/18 08:07:16	1.52
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.51 2004/02/16 23:27:03 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.52 2004/02/18 08:07:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -803,6 +803,37 @@ sub crumbs {
     return $output.'</font></b></tt><br />';
 }
 
+# ------------------------------------------------- Output headers for HTMLArea
+
+sub htmlareaheaders {
+    unless (&htmlareabrowser()) { return ''; }
+    my $lang='en';
+    return (<<ENDHEADERS);
+<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
+<script type="text/javascript" src="/htmlarea/lang/$lang.js"></script>
+<script type="text/javascript" src="/htmlarea/dialog.js"></script>
+<style type="text/css">
+\@import url(/htmlarea/htmlarea.css);
+</style>
+ENDHEADERS
+}
+
+# ---------------------------------------------------------- Script to activate
+
+sub htmlareaactive {
+    unless (&htmlareabrowser()) { return ''; }
+    return (<<ENDSCRIPT);
+<script type="text/javascript" defer="1">
+    HTMLArea.replaceAll();
+</script>
+ENDSCRIPT
+}
+
+# ---------------------------------------- Browser capable of running HTMLArea?
+
+sub htmlareabrowser {
+    return 1;
+}
 
 1;