Index: openacs-4/packages/new-portal/www/place-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/place-element.tcl,v
diff -u -N -r1.37 -r1.38
--- openacs-4/packages/new-portal/www/place-element.tcl	8 Aug 2006 21:26:59 -0000	1.37
+++ openacs-4/packages/new-portal/www/place-element.tcl	15 May 2007 20:14:48 -0000	1.38
@@ -32,23 +32,45 @@
 set num_regions [portal::get_layout_region_count -layout_id $layout_id]
 
 template::multirow create element_multi \
-        element_id \
-        name \
-        sort_key \
-        state \
-        hideable_p 
+    element_id \
+    name \
+    sort_key \
+    state \
+    hideable_p \
+    page_id \
+    hide_remove_url \
+    move_up_url \
+    move_down_url \
+    move_right_wa_url \
+    move_left_wa_url \
+    move_right_url
 
 set region_count 0
 
 db_foreach select_elements_by_region {} {
     set name [lang::util::localize "$name"]    
+
+    # URLs for actions
+    set hide_remove_url [export_vars -base $action_string {{anchor $page_id} {op_hide 1} portal_id element_id return_url}]
+    set move_up_url [export_vars -base $action_string {{anchor $page_id} {op_swap 1} {direction up} portal_id region element_id page_id return_url}]
+    set move_down_url [export_vars -base $action_string {{anchor $page_id} {op_swap 1} {direction down} portal_id region element_id page_id return_url}]
+    set move_right_wa_url [export_vars -base $action_string {{anchor $page_id} {op_move 1} {direction right} portal_id element_id region return_url}]
+    set move_left_wa_url [export_vars -base $action_string {{anchor $page_id} {op_move 1} {direction left} portal_id element_id region return_url}]
+    set move_right_url [export_vars -base $action_string {{op_move 1} {direction right} portal_id element_id region return_url}]
+
     template::multirow append element_multi \
 	    $element_id \
-            $name \
-            $sort_key \
-            $state \
-            [portal::hideable_p -element_id $element_id] \
-            $page_id
+        $name \
+        $sort_key \
+        $state \
+        [portal::hideable_p -element_id $element_id] \
+        $page_id \
+        $hide_remove_url \
+        $move_up_url \
+        $move_down_url \
+        $move_right_wa_url \
+        $move_left_wa_url \
+        $move_right_url
 
     incr region_count
 }
@@ -65,5 +87,5 @@
     append show_html "<option value=[lindex $element 0]>[lindex $element 1]</option>\n"
 }
 
-set imgdir "[portal::mount_point]/place-element-components"        
+set imgdir /resources/new-portal/images
 set location [ad_conn location]