Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	29 Nov 2001 02:23:20 -0000	1.11
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	29 Nov 2001 05:10:36 -0000	1.12
@@ -93,9 +93,13 @@
 	    # Insert the class instance
 	    set community_id [db_exec_plsql create_class_instance {}]
 	    
+	    # Set up the rel segments
+	    dotlrn_community::create_rel_segments -community_id $community_id
+
 	    # Set up the node
-	    # set parent_node_id [ad_conn -get node_id]
 	    # THIS IS WRONG: the parent_node_id is the node of the class_type
+	    # set parent_node_id [ad_conn -get node_id]
+	    # So instead we DO THIS:
 	    set parent_node_id [db_string select_parent_node_id {}]
 	    
 	    # Instantiate the right package at that site node, probably portals