--- loncom/interface/lonhtmlcommon.pm	2004/03/03 22:55:35	1.59
+++ 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.59 2004/03/03 22:55:35 matthew 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 {
@@ -928,7 +941,7 @@ returns: nothing
         # Make the faq and bug data cascade
         my $faq = '';
         my $bug = '';
-        # The last breadcrumb does not have a link, so handle it seperately.
+        # The last breadcrumb does not have a link, so handle it separately.
         my $last = pop(@Crumbs);
         #
         # The first one should be the course, I guess.