Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/www/blank-master.tcl	18 Mar 2005 18:10:39 -0000	1.17
+++ openacs-4/www/blank-master.tcl	4 Jun 2006 00:45:56 -0000	1.18
@@ -30,15 +30,34 @@
 # Attributes
 
 multirow create attribute key value
-
 set onload {}
 
-# Handle RTE widget, which needs special javascript and css in the page header
-global acs_blank_master__htmlareas
+# Handle richtext widgets, which needs special javascript and css 
+# in the page header
+
+multirow create htmlarea_support id 
+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 onload "acs_rteInit('${htmlarea_id}');"
+      lappend onload "acs_rteInit('${htmlarea_id}');"
+    }}
+
+  if {[info exists acs_blank_master(xinha)]} {
+    set xinha_dir /resources/acs-templating/xinha-nightly/
+    set xinha_plugins $acs_blank_master(xinha.plugins)
+    set xinha_params ""
+    set xinha_options $acs_blank_master(xinha.options)
+    # setting language
+    set lang [lang::conn::language]
+    # if there are problems with the language definitions, set lang to "en"
+    if {$lang ne "en" && $lang ne "de"} {set lang en} 
+    foreach element_id $acs_blank_master__htmlareas {
+      multirow append htmlarea_support $element_id
     }
+  }
 }
 
 if { ![template::util::is_nil focus] } {