Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/categories/tcl/widget-procs.tcl	23 Sep 2005 08:04:40 -0000	1.15.2.1
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	31 Oct 2005 13:17:57 -0000	1.15.2.2
@@ -91,7 +91,16 @@
     if { [empty_string_p $tree_id] } {
         set mapped_trees [category_tree::get_mapped_trees $package_id]
     } else {
-        set mapped_trees [list [list $tree_id [category_tree::get_name $tree_id] $subtree_id $assign_single_p $require_category_p]]
+        set mapped_trees {}
+        foreach one_tree $tree_id one_subtree $subtree_id assign_single $assign_single_p require_category $require_category_p {
+            if {[empty_string_p $assign_single]} {
+                set assign_single f
+            }
+            if {[empty_string_p $require_category]} {
+                set require_category f
+            }
+            lappend mapped_trees [list $one_tree [category_tree::get_name $one_tree] $one_subtree $assign_single $require_category]
+        }
     }
 
     foreach mapped_tree $mapped_trees {