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