Index: openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 21 Sep 2005 01:24:24 -0000 1.27 +++ openacs-4/packages/dotlrn-ecommerce/tcl/implementation-procs.tcl 21 Sep 2005 01:39:48 -0000 1.28 @@ -408,8 +408,8 @@ set mapped_cats [category::get_mapped_categories -tree_id $tree_id $community_id] set mapped_cat_names [category::get_names $mapped_cats] set tree_var_name [util_text_to_url -text ${tree_name}] - set var_list($tree_var_name) $mapped_cat_names - ns_log notice "DAVEB \n trees='${trees}' tree_id='${tree_id}' \n community_id='${community_id}'\nmapped_cats='${mapped_cats}'\n tree_name='${tree_name}'\n mapped_cat_names '${mapped_cat_names}'" + set var_list($tree_var_name) [join $mapped_cat_names ","] + } }