--- loncom/interface/lonhtmlcommon.pm	2004/06/02 16:41:46	1.71
+++ loncom/interface/lonhtmlcommon.pm	2004/06/03 16:42:02	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.71 2004/06/02 16:41:46 www Exp $
+# $Id: lonhtmlcommon.pm,v 1.73 2004/06/03 16:42:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -875,13 +875,10 @@ sub htmlareaheaders {
     }
     return (<<ENDHEADERS);
 <script type="text/javascript">
-    _editor_url="/htmlarea/";
-</script>
-<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
-<style type="text/javascript">
 _editor_url='/htmlarea/';
 _editor_lang='$lang';
-</style>
+</script>
+<script type="text/javascript" src="/htmlarea/htmlarea.js"></script>
 ENDHEADERS
 }
 
@@ -896,6 +893,19 @@ sub htmlareaactive {
 ENDSCRIPT
 }
 
+# ----------------------------------------- Script to activate only some fields
+
+sub htmlareaselectactive {
+    my @fields=@_;
+    if (&htmlareablocked()) { return ''; }
+    my $output='<script type="text/javascript" defer="1">';
+    foreach(@fields) {
+	$output.="\nHTMLArea.replace('$_');";
+    }
+    $output.="\nwindow.status='Activated Editfields';\n</script>";
+    return $output;
+}
+
 # --------------------------------------------------------------------- Blocked
 
 sub htmlareablocked {