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.20 -r1.21
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	17 Nov 2001 16:36:34 -0000	1.20
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	21 Nov 2001 16:20:24 -0000	1.21
@@ -14,6 +14,9 @@
 		portal_id		in portals.portal_id%TYPE default null,
 		name			in portals.name%TYPE default null,
 		layout_id		in portals.layout_id%TYPE default null,
+		theme_id		in portals.theme_id%TYPE default null,
+		portal_template_p	in portals.portal_template_p%TYPE default null,
+		template_id		in portals.template_id%TYPE default null,
 		object_type		in acs_object_types.object_type%TYPE default 'portal',
 		creation_date		in acs_objects.creation_date%TYPE 
 					default sysdate,
@@ -36,6 +39,8 @@
 		portal_id		in portals.portal_id%TYPE default null,
 		name			in portals.name%TYPE default null,
 		layout_id		in portals.layout_id%TYPE default null,
+		portal_template_p	in portals.portal_template_p%TYPE default null,
+		template_id		in portals.template_id%TYPE default null,
 		object_type		in acs_object_types.object_type%TYPE default 'portal',
 		creation_date		in acs_objects.creation_date%TYPE 
 					default sysdate,
@@ -60,11 +65,18 @@
 
 		select max(theme_id) into v_theme_id from portal_element_themes;
 
-		insert into portals (portal_id, layout_id, name, theme_id) 
-		       values (v_portal_id, 
+		insert into portals (portal_id, 
+				    name, 
+				    layout_id, 
+				    theme_id,
+				    portal_template_p,
+				    template_id) 
+		       values (v_portal_id,
+			       'Untitled',  
 			       layout_id, 
-			       'Untitled', 
-			       v_theme_id
+			       v_theme_id,
+			       portal_template_p,
+			       template_id
 			       );
 
 		return v_portal_id;