Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -r1.47.2.2 -r1.47.2.3 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 26 May 2009 14:51:27 -0000 1.47.2.2 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 8 Jun 2009 14:52:35 -0000 1.47.2.3 @@ -529,9 +529,26 @@ -parameter "TinyMCEDefaultConfig" \ -default $tinymce_default_config] set pairslist [list] + ns_log notice "options [array get options]" foreach config_pair $tinymce_configs_list { - lappend pairslist "[lindex $config_pair 0]:\"[lindex $config_pair 1]\"" + set config_key [lindex $config_pair 0] + if {[info exists options($config_key)]} { + # override default values with individual + # widget specification + set config_value $options($config_key) + unset options($config_key) + } else { + set config_value [lindex $config_pair 1] + } + ns_log notice "key $config_key value $config_value" + lappend pairslist "${config_key}:\"${config_value}\"" } + foreach name [array names options] { + ns_log notice "NAME $name" + # add any additional options not specified in the + # default config + lappend pairslist "${name}:\"$options($name)\"" + } lappend pairslist "elements : \"[join $::acs_blank_master__htmlareas ","]\"" set tinymce_configs_js [join $pairslist ","] set ::acs_blank_master(tinymce.config) $tinymce_configs_js