Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.94.6.1 -r1.94.6.2
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	13 Oct 2013 18:15:14 -0000	1.94.6.1
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	11 Feb 2014 11:53:09 -0000	1.94.6.2
@@ -95,7 +95,7 @@
       $data set $__var [my var $__var]
     }
     $data initialize_loaded_object
-    db_transaction {
+    xo::dc transaction {
       $data save
       set old_name [::xo::cc form_parameter __object_name ""]
       set new_name [$data set name]
@@ -211,16 +211,8 @@
 
       append new_data {
         category::map_object -remove_old -object_id $item_id $category_ids
-        #ns_log notice "-- new data category::map_object -remove_old -object_id $item_id $category_ids"
-        #db_dml [my qn insert_asc_named_object] \
-        #    "insert into acs_named_objects (object_id,object_name,package_id) \
-        #     values (:item_id, :name, :package_id)"
       }
       append edit_data {
-        #db_dml [my qn update_asc_named_object] \
-        #    "update acs_named_objects set object_name = :name, \
-        #        package_id = :package_id where object_id = :item_id"
-        #ns_log notice "-- edit data category::map_object -remove_old -object_id $item_id $category_ids"
         category::map_object -remove_old -object_id $item_id $category_ids
       }
       append on_submit {
@@ -239,6 +231,12 @@
   }
 }
 namespace import -force ::Generic::*
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: