Index: openacs-4/packages/categories/lib/tree-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/tree-form.tcl,v diff -u -r1.5.2.2 -r1.5.2.3 --- openacs-4/packages/categories/lib/tree-form.tcl 8 May 2019 15:10:14 -0000 1.5.2.2 +++ openacs-4/packages/categories/lib/tree-form.tcl 11 Feb 2020 12:50:56 -0000 1.5.2.3 @@ -34,17 +34,25 @@ set description [util_close_html_tags $description 4000] } -new_data { db_transaction { - category_tree::add -tree_id $tree_id -name $tree_name -description $description -locale $language -context_id $package_id - if { [info exists object_id] } { - category_tree::map -tree_id $tree_id -object_id $object_id - set return_url [export_vars -base object-map { locale object_id ctx_id}] - } else { - set return_url [export_vars -base tree-view { tree_id locale ctx_id}] - } + + category_tree::add -tree_id $tree_id \ + -name $tree_name \ + -description $description \ + -locale $language \ + -context_id $package_id + + if { [info exists object_id] } { + category_tree::map -tree_id $tree_id -object_id $object_id + set return_url [export_vars -base object-map { locale object_id ctx_id}] + } else { + set return_url [export_vars -base tree-view { tree_id locale ctx_id}] + } + } } -edit_data { category_tree::update -tree_id $tree_id -name $tree_name -description $description -locale $language set return_url [export_vars -base tree-view { tree_id locale object_id ctx_id}] + } -after_submit { ad_returnredirect $return_url ad_script_abort