Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.17 -r1.17.2.1
--- openacs-4/www/blank-master.tcl	18 Mar 2005 18:10:39 -0000	1.17
+++ openacs-4/www/blank-master.tcl	2 Nov 2005 03:45:55 -0000	1.17.2.1
@@ -30,15 +30,27 @@
 # 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 widget, which needs special javascript and css 
+# in the page header
+
+multirow create htmlarea_support id 
+global acs_blank_master__htmlareas acs_blank_master__rte acs_blank_master__xinha
+
 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]} {
+    # setting language
+    set lang [lang::conn::language]
+    # if there are problems with the language definitions, set it to "en"
+    foreach element_id $acs_blank_master__htmlareas {
+      multirow append htmlarea_support $element_id
     }
+  }
 }
 
 if { ![template::util::is_nil focus] } {