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;
Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	20 Feb 2002 20:22:47 -0000	1.58
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Feb 2002 17:28:17 -0000	1.59
@@ -143,6 +143,7 @@
         }
 
         # Add core vars
+        ns_set put $extra_vars parent_community_id $parent_community_id
         ns_set put $extra_vars community_type $community_type
         ns_set put $extra_vars community_key $community_key
         ns_set put $extra_vars pretty_name $pretty_name
@@ -155,11 +156,6 @@
             set community_id [package_instantiate_object \
                     -extra_vars $extra_vars $object_type]
 
-            # Update parent community ID if necessary
-            if {![empty_string_p $parent_community_id]} {
-                db_dml update_parent_community_id {}
-            }
-
             set user_id [ad_conn user_id]
 
             # Create portal template page
Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	20 Feb 2002 20:22:47 -0000	1.28
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	21 Feb 2002 17:28:17 -0000	1.29
@@ -35,13 +35,6 @@
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_community::new.update_parent_community_id">
-<querytext>
-update dotlrn_communities set parent_community_id= :parent_community_id
-where community_id= :community_id
-</querytext>
-</fullquery>
-
 <fullquery name="dotlrn_community::new.update_portal_ids">
 <querytext>
 update dotlrn_communities set portal_template_id = :portal_template_id, portal_id = :portal_id, admin_portal_id= :admin_portal_id where community_id = :community_id