Index: openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql,v
diff -u -N -r1.13 -r1.13.8.1
--- openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql 24 Apr 2009 11:51:20 -0000 1.13
+++ openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql 8 Jan 2020 11:55:19 -0000 1.13.8.1
@@ -28,36 +28,6 @@
-
-
- update portal_element_map
- set region = :region,
- page_id = :page_id,
- sort_key = (select coalesce((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 coalesce((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
@@ -77,15 +47,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
@@ -100,20 +61,6 @@
-
-
- update portal_element_map
- set region = :target_region,
- sort_key = (select coalesce((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
-
-
-
select portal_page__new(