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.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	8 Oct 2001 21:38:37 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	7 Nov 2001 22:22:09 -0000	1.8
@@ -83,8 +83,9 @@
 	    set community_id [db_exec_plsql create_class_instance {}]
 	    
 	    # Set up the node
-	    # set parent_node_id [db_string select_parent_node_id {}]
-	    set parent_node_id [ad_conn -get node_id]
+	    # 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 [db_string select_parent_node_id {}]
 	    
 	    # Instantiate the right package at that site node, probably portals
 	    set package_id [site_node_mount_application -return "package_id" $parent_node_id $short_name [one_class_package_key] $short_name]