Index: openacs-4/packages/categories/tcl/category-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-form-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/categories/tcl/category-form-procs.tcl	26 Jan 2005 00:27:26 -0000	1.4
+++ openacs-4/packages/categories/tcl/category-form-procs.tcl	28 Aug 2007 16:30:03 -0000	1.5
@@ -27,7 +27,7 @@
     set category_trees [category_tree::get_mapped_trees $container_object_id]
     
     foreach tree $category_trees {
-	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p
+	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p widget
         if {[lsearch -exact $excluded_trees $tree_id] > -1} { 
             continue
         } 
@@ -46,6 +46,7 @@
                        {category_object_id {[value_if_exists categorized_object_id]}} \
 		       {category_assign_single_p $assign_single_p} \
 		       {category_require_category_p $require_category_p} \
+                       {category_widget $widget} \
                        {help_text $help_text} \
                       ]]
         
@@ -66,7 +67,7 @@
     set category_trees [category_tree::get_mapped_trees $container_object_id]
     set category_ids [list]
     foreach tree $category_trees {
-	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p
+	util_unlist $tree tree_id name subtree_id assign_single_p require_category_p widget
         upvar #[template::adp_level] \
           __category__ad_form__$element_name\_${tree_id} my_category_ids
         if {[info exists my_category_ids]} {