Index: openacs-4/packages/categories/www/cadmin/tree-update-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/tree-update-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/categories/www/cadmin/tree-update-2.tcl 27 Apr 2003 11:37:12 -0000 1.2 +++ openacs-4/packages/categories/www/cadmin/tree-update-2.tcl 19 May 2003 13:10:51 -0000 1.3 @@ -31,6 +31,7 @@ } on_error { append list_of_errors "
  • Node [category::get_name $category_id $locale] contains leaf (child) categories. If you really want to delete those leaf categories, plesae delete them first" } +db_dml delete_tmp_category_trees "" if { [llength $list_of_errors] >0 } { ad_return_complaint "Error Deleting Nodes" $list_of_errors