Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -N -r1.52.2.1 -r1.52.2.2
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	1 Mar 2019 10:00:15 -0000	1.52.2.1
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	8 Jan 2020 11:55:19 -0000	1.52.2.2
@@ -30,6 +30,21 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::move_element_to_page.update">
+        <querytext>
+            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
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::get_name_not_cached.get_name_select">
         <querytext>
             select name
@@ -391,6 +406,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::add_element_to_region.insert">
+        <querytext>
+            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)
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::add_element_to_region.get_target_page_id">
         <querytext>
             select page_id as target_page_id
@@ -400,6 +424,21 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::configure_dispatch.show_here_update_sk">
+        <querytext>
+            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
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure_dispatch.revert_get_source_page_id">
         <querytext>
             select page_id
@@ -520,6 +559,20 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::move_element.update">
+        <querytext>
+            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
+        </querytext>
+    </fullquery>
+
     <fullquery name="portal::get_element_param_list.select">
         <querytext>
             select value