--- 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 (<
- _editor_url="/htmlarea/";
-
-
-
+
+
ENDHEADERS
}
@@ -896,6 +893,19 @@ sub htmlareaactive {
ENDSCRIPT
}
+# ----------------------------------------- Script to activate only some fields
+
+sub htmlareaselectactive {
+ my @fields=@_;
+ if (&htmlareablocked()) { return ''; }
+ my $output='";
+ return $output;
+}
+
# --------------------------------------------------------------------- Blocked
sub htmlareablocked {