Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-communities-create.sql,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	14 Feb 2002 23:33:25 -0000	1.25
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-communities-create.sql	21 Feb 2002 17:28:16 -0000	1.26
@@ -231,6 +231,7 @@
 is
     function new (
         community_id in dotlrn_communities.community_id%TYPE default null,
+        parent_community_id in dotlrn_communities.parent_community_id%TYPE default null,
         community_type in dotlrn_communities.community_type%TYPE,
         community_key in dotlrn_communities.community_key%TYPE,
         pretty_name in dotlrn_communities.pretty_name%TYPE,
@@ -280,6 +281,7 @@
 as
     function new (
         community_id in dotlrn_communities.community_id%TYPE default null,
+        parent_community_id in dotlrn_communities.parent_community_id%TYPE default null,
         community_type in dotlrn_communities.community_type%TYPE,
         community_key in dotlrn_communities.community_key%TYPE,
         pretty_name in dotlrn_communities.pretty_name%TYPE,
@@ -307,11 +309,26 @@
             join_policy => join_policy
         );
 
-        insert
-        into dotlrn_communities
-        (community_id, community_type, community_key, pretty_name, description, package_id, portal_id, portal_template_id)
+        insert into dotlrn_communities
+          (community_id, 
+           parent_community_id,
+           community_type, 
+           community_key, 
+           pretty_name,  
+           description, 
+           package_id, 
+           portal_id, 
+           portal_template_id)
         values
-        (c_id, community_type, community_key, pretty_name, description, package_id, portal_id, portal_template_id);
+          (c_id, 
+           parent_community_id, 
+           community_type, 
+           community_key, 
+           pretty_name, 
+           description,    
+           package_id, 
+           portal_id, 
+           portal_template_id);
 
         return c_id;
     end;
