--- loncom/interface/lonhtmlcommon.pm	2004/03/08 17:31:37	1.60
+++ loncom/interface/lonhtmlcommon.pm	2004/04/06 15:07:41	1.62
@@ -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.62 2004/04/06 15:07:41 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -814,8 +814,11 @@ sub r_print {
 # ------------------------------------------------------- Puts directory header
 
 sub crumbs {
-    my ($uri,$target,$prefix,$form)=@_;
-    my $output='<br /><tt><b><font size="+2">'.$prefix.'/';
+    my ($uri,$target,$prefix,$form,$size)=@_;
+    if (! defined($size)) {
+        $size = '+2';
+    }
+    my $output='<br /><tt><b><font size="'.$size.'">'.$prefix.'/';
     if ($ENV{'user.adv'}) {
 	my $path=$prefix.'/';
 	foreach (split('/',$uri)) {
@@ -838,9 +841,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 +859,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 +867,13 @@ sub htmlareaactive {
 ENDSCRIPT
 }
 
+# --------------------------------------------------------------------- Blocked
+
+sub htmlareablocked {
+    unless (&htmlareabrowser()) { return ''; }
+    return 1;
+}
+
 # ---------------------------------------- Browser capable of running HTMLArea?
 
 sub htmlareabrowser {