Index: openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs.tcl	7 Aug 2017 23:48:00 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs.tcl	3 Sep 2024 15:37:34 -0000	1.6
@@ -16,15 +16,28 @@
 } {
     map object object_id to site_node node_id in table site_node_object_mappings
 } {
-    db_exec_plsql set_node_mapping {}
+    db_transaction {
+        site_node_object_map::del -object_id $object_id
+        db_dml set_node_mapping {
+            insert
+            into site_node_object_mappings
+            (object_id, node_id)
+            values
+            (:object_id, :node_id)
+        }
+    }
 }
 
 ad_proc -public site_node_object_map::del {
     {-object_id:required}
 } {
     unmap object object_id from site_node node_id in table site_node_object_mappings
 } {
-    db_exec_plsql unset_node_mapping {}
+    db_dml unset_node_mapping {
+        delete
+        from site_node_object_mappings
+        where object_id = :object_id
+    }
 }
 
 ad_proc -public site_node_object_map::get_node_id {