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.32 -r1.33
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	23 Jan 2002 06:29:22 -0000	1.32
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	24 Jan 2002 21:53:57 -0000	1.33
@@ -53,7 +53,6 @@
 		v_page_id portal_pages.page_id%TYPE;
 		v_layout_id portal_pages.layout_id%TYPE;
 		v_sort_key portal_pages.sort_key%TYPE;
-                v_current_page_count integer;       
 	begin
 		v_page_id := acs_object.new (
 			object_type	=> object_type,
@@ -84,21 +83,6 @@
                        (page_id, pretty_name, portal_id, layout_id, sort_key)
 		values (v_page_id, pretty_name, portal_id, v_layout_id, v_sort_key);
 
-                select count(*) into v_current_page_count 
-                from portal_current_page
-                where portal_id = portal_page.new.portal_id;
-                
-                if v_current_page_count = 0 then
-                   insert into portal_current_page
-                   (portal_id, page_id) values (portal_page.new.portal_id, v_page_id);
-                else
-                   update portal_current_page 
-                   set page_id = v_page_id
-                   where portal_id = portal_page.new.portal_id;
-
---                   raise_application_error(-20000, 'aks1 just UPDATED portal_current_page with page_id ' || v_page_id || ' portal_id ' || portal_id || ' page count ' || v_current_page_count); 
-                end if;
-
                 return v_page_id;
 	end new;
 
@@ -107,7 +91,6 @@
 	)
 	is
 	begin
-                delete from portal_current_page where page_id = portal_page.delete.page_id;
                 delete from portal_pages where page_id = portal_page.delete.page_id;
                 
                 acs_object.delete(page_id);
