--- loncom/interface/lonhtmlcommon.pm	2004/03/08 17:31:37	1.60
+++ loncom/interface/lonhtmlcommon.pm	2004/03/09 15:06:48	1.61
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.60 2004/03/08 17:31:37 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.61 2004/03/09 15:06:48 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -838,9 +838,12 @@ sub crumbs {
 # ------------------------------------------------- Output headers for HTMLArea
 
 sub htmlareaheaders {
-    unless (&htmlareabrowser()) { return ''; }
+    unless (&htmlareablocked()) { return ''; }
     my $lang='en';
     return (<<ENDHEADERS);
+<script type="text/javascript">
+    _editor_url="/htmlarea/";
+</script>
 <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>
@@ -853,7 +856,7 @@ ENDHEADERS
 # ---------------------------------------------------------- Script to activate
 
 sub htmlareaactive {
-    unless (&htmlareabrowser()) { return ''; }
+    unless (&htmlareablocked()) { return ''; }
     return (<<ENDSCRIPT);
 <script type="text/javascript" defer="1">
     HTMLArea.replaceAll();
@@ -861,6 +864,13 @@ sub htmlareaactive {
 ENDSCRIPT
 }
 
+# --------------------------------------------------------------------- Blocked
+
+sub htmlareablocked {
+    unless (&htmlareabrowser()) { return ''; }
+    return 1;
+}
+
 # ---------------------------------------- Browser capable of running HTMLArea?
 
 sub htmlareabrowser {