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.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	3 Oct 2001 01:56:56 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	7 Nov 2001 22:22:09 -0000	1.3
@@ -2,25 +2,11 @@
 
 <queryset>
 
-<fullquery name="dotlrn_class::new.insert_class">
-<querytext>
-insert into dotlrn_classes (class_key) values (:class_group_type_key)
-</querytext>
-</fullquery>
-
 <fullquery name="dotlrn_class::new_instance.select_parent_node_id">
 <querytext>
-select node_id from dotlrn_classes where class_key=:class_name
+select node_id from site_nodes where object_id= (select package_id from dotlrn_classes_full where class_key=:class_type)
 </querytext>
 </fullquery>
 
-<fullquery name="dotlrn_class::new_instance.insert_class_instance">
-<querytext>
-insert into dotlrn_class_instances 
-	(class_instance_id, class_key)
-values
-	(:community_id, :short_name)
-</querytext>
-</fullquery>
 
 </queryset>