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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	11 Dec 2001 00:45:15 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	22 Jan 2002 00:13:09 -0000	1.6
@@ -3,9 +3,10 @@
 <queryset>
   <fullquery name="dotlrn_class::new.insert_class">
     <querytext>
-      insert
-      into dotlrn_classes (class_key)
-      values (:class_key)
+      insert into dotlrn_classes
+      (class_key, department_key)
+      values
+      (:class_key, :department_key)
     </querytext>
   </fullquery>
 
@@ -15,7 +16,7 @@
       from site_nodes
       where object_id = (select package_id
                          from dotlrn_classes_full
-                         where class_key = :class_type)
+                         where class_key = :class_key)
     </querytext>
   </fullquery>
 </queryset>