Index: openacs-4/packages/cms/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v diff -u -r1.27.2.4 -r1.27.2.5 --- openacs-4/packages/cms/tcl/form-procs.tcl 19 Feb 2007 22:17:42 -0000 1.27.2.4 +++ openacs-4/packages/cms/tcl/form-procs.tcl 5 Mar 2007 22:14:58 -0000 1.27.2.5 @@ -691,17 +691,14 @@ set form_counter_i 0 set category_ids "" while {$form_counter_i < $form_size} { - ns_log notice "[ns_set key $form $form_counter_i]: [ns_set value $form $form_counter_i]\n" if { [string match "__category__ad_form__category_id_*" [ns_set key $form $form_counter_i]] } { - ns_log notice "[ns_set key $form $form_counter_i]: [ns_set value $form $form_counter_i]\n" append category_ids "[ns_set value $form $form_counter_i] " } incr form_counter_i } foreach tree [category_tree::get_mapped_trees [ad_conn package_id]] { - ns_log notice "==================== looking for categories for tree [lindex $tree 0] " append category_ids "[category::ad_form::get_categories -container_object_id [lindex $tree 0]] " } @@ -1458,7 +1455,6 @@ template::util::list_to_array $values param $columns } - # special case - the search widget #if { [string equal $param(widget) search] } { # set param(datatype) search @@ -1471,6 +1467,20 @@ # use any set of values for label and optional flag lappend command -label $param(pretty_name) -widget $param(widget) \ -datatype $param(datatype) -section $section + + # initialize richtext widget for non "content" area attributes + if { $param(widget) eq "richtext" } { + lappend command -options {editor xinha plugins {Stylist} height 350px javascript { + xinha_config.toolbar = [ + ['popupeditor','createlink','insertimage'], + ['separator','insertorderedlist','insertunorderedlist'], + ['separator','bold','italic'], + ['separator','undo','redo','cut','copy','paste'], + ['separator','htmlmode','killword','removeformat'] + ]; + xinha_config.stylistLoadStylesheet('/definitions.css'); } + } + } # changed from widget_is_required to param_is_required (OpenACS - DanW) if { $param(param_is_required) eq "f" } {