Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.112 -r1.113
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 19:51:23 -0000	1.112
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 19:54:52 -0000	1.113
@@ -454,7 +454,6 @@
             "swap" {  
                 portal::swap_element $portal_id \
                         [ns_set get $form element_id] \
-                        [ns_set get $form sort_key] \
                         [ns_set get $form region] \
                         [ns_set get $form direction]
             }
@@ -878,22 +877,23 @@
     ad_proc -private swap_element {
         portal_id
         element_id
-        sort_key
         region
         dir
     } {
         Moves a PE in the up or down by swapping its sk with its neighbor's
 
         @param portal_id 
         @param element_id 
-        @param sort_key of the element to be moved
         @param region
         @param dir either up or down
     } {
 
         ad_require_permission $portal_id portal_read_portal
         ad_require_permission $portal_id portal_edit_portal
 
+        # get this element's sk
+        db_1row get_my_sort_key_and_page_id {}
+
         if { $dir == "up" } {
             # get the sort_key and id of the element above
             if {[db_0or1row get_prev_sort_key {}] == 0} {
@@ -952,7 +952,9 @@
             ad_return_complaint 1 "portal::move_element Bad direction!"
         }
 
-        # just move the element to the bottom of the region
+        # get this element's page_id
+        db_1row get_my_page_id {}
+
         db_dml update {} 
     }