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 @@
-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)
@@ -17,16 +17,10 @@
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)
-
-
-select class_instance_id from dotlrn_class_instances where class_instance_key= :class_instance_name
-
-
-