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.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	7 Nov 2001 22:22:09 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	30 Nov 2001 03:41:17 -0000	1.4
@@ -2,6 +2,12 @@
 
 <queryset>
 
+<fullquery name="dotlrn_class::new.insert_class">
+<querytext>
+insert into dotlrn_classes (class_key) values (:class_key)
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_class::new_instance.select_parent_node_id">
 <querytext>
 select node_id from site_nodes where object_id= (select package_id from dotlrn_classes_full where class_key=:class_type)