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