Index: openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql 13 Jul 2002 03:05:24 -0000 1.8
+++ openacs-4/packages/new-portal/tcl/portal-procs-postgresql.xql 21 Aug 2002 15:22:39 -0000 1.9
@@ -140,4 +140,41 @@
+
+
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select pem.sort_key,
+ element_id
+ from portal_element_map pem,
+ portal_pages pp
+ where pp.portal_id = :portal_id
+ and pem.page_id = :my_page_id
+ and pp.page_id = pem.page_id
+ and region = :region
+ and pem.sort_key < :my_sort_key
+ and state != 'pinned'
+ order by pem.sort_key desc) as sort_keys
+ limit 1
+
+
+
+
+
+ select sort_key as other_sort_key,
+ element_id as other_element_id
+ from (select pem.sort_key,
+ element_id
+ from portal_element_map pem, portal_pages pp
+ where pp.portal_id = :portal_id
+ and pem.page_id = :my_page_id
+ and pem.page_id = pp.page_id
+ and region = :region
+ and pem.sort_key > :my_sort_key
+ and state != 'pinned'
+ order by pem.sort_key) as sort_keys
+ limit 1
+
+
+