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.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	20 Sep 2001 18:29:35 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	30 Sep 2001 20:08:47 -0000	1.2
@@ -32,7 +32,7 @@
 
 	set parent_node_id [ad_conn -get node_id]
 
-	set group_type_name "DOTLRN_CLASS_$name"
+	set group_type_name "dotlrn_class_$name"
 
 	db_transaction {
 	    # Create a new group type for that class
@@ -45,9 +45,11 @@
 
 	    # Set some parameters
 	    ad_parameter -package_id $package_id -set 0 dotlrn_level_p
-	    ad_parameter -package_id $package_id -set 1 class_level_p
-	    ad_parameter -package_id $package_id -set 0 class_instance_level_p
+	    ad_parameter -package_id $package_id -set 1 community_type_level_p
+	    ad_parameter -package_id $package_id -set 0 community_level_p
 
+	    # Insert the community into the DB
+
 	    # insert the class into the DB
 	    db_dml insert_class {}
 	}
@@ -130,4 +132,4 @@
 	return "dotlrn"
     }
 
-}
\ No newline at end of file
+}