--- 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.'
';
}
+# ------------------------------------------------- Output headers for HTMLArea
+
+sub htmlareaheaders {
+ unless (&htmlareabrowser()) { return ''; }
+ my $lang='en';
+ return (<
+
+
+
+ENDHEADERS
+}
+
+# ---------------------------------------------------------- Script to activate
+
+sub htmlareaactive {
+ unless (&htmlareabrowser()) { return ''; }
+ return (<
+ HTMLArea.replaceAll();
+
+ENDSCRIPT
+}
+
+# ---------------------------------------- Browser capable of running HTMLArea?
+
+sub htmlareabrowser {
+ return 1;
+}
1;