Index: openacs-4/packages/dotlrn/tcl/class-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	20 Sep 2001 18:29:35 -0000	1.1
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	3 Oct 2001 01:56:56 -0000	1.2
@@ -4,7 +4,7 @@
 
 <fullquery name="dotlrn_class::new.insert_class">
 <querytext>
-insert into dotlrn_classes (class_key, node_id) values (:one_class_group_type_key, :node_id)
+insert into dotlrn_classes (class_key) values (:class_group_type_key)
 </querytext>
 </fullquery>
 
@@ -17,16 +17,10 @@
 <fullquery name="dotlrn_class::new_instance.insert_class_instance">
 <querytext>
 insert into dotlrn_class_instances 
-	(class_instance_id, class_instance_key, class_key, node_id)
+	(class_instance_id, class_key)
 values
-	(:group_id, :class_inst_key, :class_name, :node_id)
+	(:community_id, :short_name)
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_class::assign_role.select_group_id">
-<querytext>
-select class_instance_id from dotlrn_class_instances where class_instance_key= :class_instance_name
-</querytext>
-</fullquery>
-
 </queryset>