Index: openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-oracle.xql 21 Jun 2002 21:05:23 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,24 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
- declare
- begin
- site_node_object_map.new(object_id => :object_id, node_id => :node_id);
- end;
-
-
-
-
-
- declare
- begin
- site_node_object_map.del(object_id => :object_id);
- end;
-
-
-
-
Index: openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/site-node-object-map-procs-postgresql.xql 21 Jun 2002 21:05:23 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
- select site_node_object_map__new(:object_id, :node_id)
-
-
-
-
-
- select site_node_object_map__del(:object_id)
-
-
-
-
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 -N -r1.5 -r1.5.2.1
--- 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 Jan 2020 11:18:37 -0000 1.5.2.1
@@ -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 {