Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -N -r1.20.2.5 -r1.20.2.6
--- openacs-4/www/blank-master.tcl	13 Mar 2007 17:50:59 -0000	1.20.2.5
+++ openacs-4/www/blank-master.tcl	20 Mar 2007 00:47:31 -0000	1.20.2.6
@@ -17,7 +17,7 @@
   @property body(class)       The class of the body tag.
   @property meta:multirow     A multirow of <meta> tags to render.
   @property link:multirow     A multirow of <link> tags to render.
-  @property script:multirow   A multirow of <script> tags to render.
+  @property script:multirow   A multirow of <script> tags to render in the head.
 
   ad_conn -set language       Must be used to override the document language
                               if necessary.
@@ -77,6 +77,52 @@
 }
 template::multirow append script text/javascript /resources/acs-subsite/core.js "" "" ""
 
+# Handle richtext widgets, which needs special javascript and css 
+# in the page header and body.
+
+# DRB: This stuff really doesn't belong here - templating should probably be setting
+# this stuff up.  But for now ... at least it's using the new multirows correctly.
+
+global acs_blank_master__htmlareas acs_blank_master
+
+if {[info exists acs_blank_master__htmlareas] } {
+
+    if {[info exists acs_blank_master(rte)]} {
+        foreach htmlarea_id [lsort -unique $acs_blank_master__htmlareas] {
+            lappend body(onload) "acs_rteInit('${htmlarea_id}');"
+        }
+        template::multirow append script text/javascript /resources/acs-templating/rte/richtext.js "" "" ""
+    }
+
+    if {[info exists acs_blank_master(xinha)]} {
+        set xinha_dir /resources/acs-templating/xinha-nightly/
+        template::multirow append script text/javascript "" "" "" "
+            _editor_url  = \"$xinha_dir\"
+            _editor_lang = \"[expr { $doc(lang) eq \"en\" || $doc(lang) eq \"de\"? $doc(lang) : en }]\";"
+        template::multirow append script text/javascript ${xinha_dir}htmlarea.js "" "" ""
+        template::multirow append script text/javascript "" "" "" "
+	    xinha_editors = null;
+	    xinha_init = null;
+	    xinha_config = null;
+	    xinha_plugins = null;
+	    xinha_init = xinha_init ? xinha_init : function()
+	    \{
+	        xinha_plugins = xinha_plugins ? xinha_plugins :
+	        \[$acs_blank_master(xinha.plugins)\];
+	        // THIS BIT OF JAVASCRIPT LOADS THE PLUGINS, NO TOUCHING  :)
+	        if(!HTMLArea.loadPlugins(xinha_plugins, xinha_init)) return;
+	        xinha_editors = xinha_editors ? xinha_editors :
+	        \[[join $acs_blank_master__htmlareas ,]\];
+                xinha_config = xinha_config ? xinha_config() : new HTMLArea.Config();
+                $acs_blank_master(xinha.options)
+                xinha_editors = HTMLArea.makeEditors(xinha_editors, xinha_config, xinha_plugins);
+                HTMLArea.startEditors(xinha_editors);
+            \}
+            Xinha._addEvent(window,'load', xinha_init);
+        "
+    }
+}
+
 # Concatenate the javascript event handlers for the body tag
 if {[array exists body]} {
     foreach name [array names body -glob "on*"] {