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 -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 @@
+
+
+select pretty_name, sort_key as page_num from portal_pages where
+portal_id = :portal_id
+order by sort_key
+
+
+
select region
@@ -367,6 +375,14 @@
+
+
+ select page_id as my_page_id
+ from portal_element_map
+ where element_id = :element_id
+
+
+
select value
@@ -443,6 +459,12 @@
+
+
+select portal_id from portal_pages where page_id = (select page_id from portal_element_map where element_id= :element_id)
+
+
+
select pem.element_id,