Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -N -r1.24 -r1.24.8.1
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql 24 Apr 2009 11:51:20 -0000 1.24
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql 8 Jan 2020 11:55:18 -0000 1.24.8.1
@@ -27,36 +27,6 @@
-
-
- update portal_element_map
- set region = :region,
- page_id = :page_id,
- sort_key = (select nvl((select max(pem.sort_key) + 1
- from portal_element_map pem
- where pem.page_id = :page_id
- and region = :region),
- 1)
- from dual)
- where element_id = :element_id
-
-
-
-
-
- update portal_element_map
- set page_id = :page_id,
- region = :region,
- sort_key = (select nvl((select max(sort_key) + 1
- from portal_element_map
- where page_id = :page_id
- and region = :region),
- 1)
- from dual)
- where element_id = :element_id
-
-
-
insert into portal_element_parameters
@@ -76,15 +46,6 @@
-
-
- insert into portal_element_map
- (element_id, name, pretty_name, page_id, datasource_id, region, sort_key)
- values
- (:new_element_id, :ds_name, :pretty_name, :page_id, :ds_id, :region, :sort_key)
-
-
-
insert into portal_element_parameters
@@ -99,20 +60,6 @@
-
-
- update portal_element_map
- set region = :target_region,
- sort_key = (select nvl((select max(pem.sort_key) + 1
- from portal_element_map pem
- where page_id = :my_page_id
- and region = :target_region),
- 1)
- from dual)
- where element_id = :element_id
-
-
-
begin