Index: openacs-4/packages/new-portal/sql/oracle/api-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/api-create.sql,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	18 Apr 2002 03:31:11 -0000	1.35
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	18 Apr 2002 03:58:59 -0000	1.36
@@ -121,7 +121,7 @@
                 select (count(*) - 1) into v_page_count_from_0
                 from portal_pages
                 where portal_id = v_portal_id;
-
+                
                 for i in 0..v_page_count_from_0 loop
                   if i = v_sort_key then
                     delete from portal_pages where page_id = portal_page.delete.page_id;
@@ -262,7 +262,8 @@
 	begin
                   for page in (select page_id
                                from portal_pages 
-                               where portal_id = portal.delete.portal_id) 
+                               where portal_id = portal.delete.portal_id
+                               order by sort_key desc) 
                   loop
                        -- delete this portal's pages
 		       portal_page.delete (