Index: openacs-4/contrib/packages/portal/sql/oracle/portal-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/sql/oracle/portal-package-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/portal/sql/oracle/portal-package-create.sql	25 Oct 2002 21:29:17 -0000	1.1
+++ openacs-4/contrib/packages/portal/sql/oracle/portal-package-create.sql	3 Jan 2004 01:42:57 -0000	1.2
@@ -28,6 +28,7 @@
 
     function new (
         p_portal_id                 in portals.portal_id%TYPE default null,
+        p_party_id                  in parties.party_id%TYPE,
         p_name                      in portals.name%TYPE default 'Untitled',
         p_theme_id                  in portals.theme_id%TYPE default null,
         p_template_id               in portals.template_id%TYPE default null,
@@ -51,6 +52,7 @@
 
     function new (
         p_portal_id                 in portals.portal_id%TYPE default null,
+        p_party_id                  in parties.party_id%TYPE,
         p_name                      in portals.name%TYPE default 'Untitled',
         p_theme_id                  in portals.theme_id%TYPE default null,
         p_template_id               in portals.template_id%TYPE default null,
@@ -89,9 +91,9 @@
 
             insert
             into portals
-            (portal_id, name, theme_id)
+            (portal_id, party_id, name, theme_id)
             values
-            (v_portal_id, p_name, v_theme_id);
+            (v_portal_id, p_party_id, p_name, v_theme_id);
 
         else
 
@@ -104,9 +106,9 @@
 
             insert
             into portals
-            (portal_id, name, theme_id, template_id)
+            (portal_id, party_id, name, theme_id, template_id)
             values
-            (v_portal_id, p_name, v_theme_id, p_template_id);
+            (v_portal_id, p_party_id, p_name, v_theme_id, p_template_id);
 
             -- now insert the pages from the portal template
             for v_page in (select *
