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.18 -r1.19
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	18 Feb 2002 21:21:06 -0000	1.18
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	29 Mar 2002 17:04:39 -0000	1.19
@@ -216,6 +216,14 @@
   </querytext>
 </fullquery> 
 
+<fullquery name="portal::navbar.list_page_nums_select">
+<querytext>
+select pretty_name, sort_key as page_num from portal_pages where
+portal_id = :portal_id
+order by sort_key
+</querytext>
+</fullquery>
+
 <fullquery name="portal::add_element.get_regions">      
   <querytext>
     select region
@@ -367,6 +375,14 @@
   </querytext>
 </fullquery> 
 
+<fullquery name="portal::move_element.get_my_page_id">      
+  <querytext>
+  select page_id as my_page_id
+  from portal_element_map 
+  where element_id = :element_id
+  </querytext>
+</fullquery> 
+
 <fullquery name="portal::get_element_param_list.select">      
   <querytext>
     select value
@@ -443,6 +459,12 @@
   </querytext>
 </fullquery> 
 
+<fullquery name="portal::evaluate_element.select_portal_id">
+<querytext>
+select portal_id from portal_pages where page_id = (select page_id from portal_element_map where element_id= :element_id)
+</querytext>
+</fullquery>
+
 <fullquery name="portal::evaluate_element_raw.element_select">      
   <querytext>
     select pem.element_id,