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.51 -r1.52 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 18 Feb 2011 01:55:23 -0000 1.51 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 27 Oct 2014 16:40:12 -0000 1.52 @@ -19,7 +19,7 @@ ad_proc -public template::util::richtext { command args } { Dispatch procedure for the richtext object } { - eval template::util::richtext::$command $args + template::util::richtext::$command {*}$args } ad_proc -public template::util::richtext::create { @@ -228,7 +228,7 @@ set attributes(id) "richtext__$element(form_id)__$element(id)" - if { [exists_and_not_null element(htmlarea_p)] } { + if { ([info exists element(htmlarea_p)] && $element(htmlarea_p) ne "") } { set htmlarea_p [template::util::is_true $element(htmlarea_p)] } else { set htmlarea_p [parameter::get \ @@ -451,7 +451,7 @@ } } - if { [exists_and_not_null element(htmlarea_p)] } { + if { ([info exists element(htmlarea_p)] && $element(htmlarea_p) ne "") } { set htmlarea_p [template::util::is_true $element(htmlarea_p)] } else { set htmlarea_p [parameter::get \ @@ -567,7 +567,11 @@ set config_value [lindex $config_pair 1] } ns_log debug "tinymce: key $config_key value $config_value" - lappend pairslist "${config_key}:\"${config_value}\"" + if {$config_value eq "true" || $config_value eq "false"} { + lappend pairslist "${config_key}:${config_value}" + } else { + lappend pairslist "${config_key}:\"${config_value}\"" + } } foreach name [array names options] {