--- loncom/interface/lonhtmlcommon.pm	2004/06/02 16:41:46	1.71
+++ loncom/interface/lonhtmlcommon.pm	2004/06/03 14:28:39	1.72
@@ -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.72 2004/06/03 14:28:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -896,6 +896,18 @@ sub htmlareaactive {
 ENDSCRIPT
 }
 
+# ----------------------------------------- Script to activate only some fields
+
+sub htmlareaselectactive {
+    if (&htmlareablocked()) { return ''; }
+    my $output='<script type="text/javascript" defer="1">';
+    foreach(@_) {
+	$output.="\nHTMLArea.replace('$_');";
+    }
+    $output.="\n</script>";
+    return $output;
+}
+
 # --------------------------------------------------------------------- Blocked
 
 sub htmlareablocked {