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 -r1.7 -r1.8
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql 23 Jan 2002 00:26:10 -0000 1.7
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql 28 Jan 2002 17:51:46 -0000 1.8
@@ -67,6 +67,21 @@
+
+
+ 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_map