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.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/class-procs.xql	19 Feb 2002 19:26:50 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/class-procs.xql	6 Mar 2002 22:35:15 -0000	1.8
@@ -1,32 +1,53 @@
 <?xml version="1.0"?>
 
 <queryset>
-  <fullquery name="dotlrn_class::new.insert_class">
-    <querytext>
-      insert into dotlrn_classes
-      (class_key, department_key)
-      values
-      (:class_key, :department_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_key)
-    </querytext>
-  </fullquery>
+    <fullquery name="dotlrn_class::new.insert_class">
+        <querytext>
+            insert into dotlrn_classes
+            (class_key, department_key)
+            values
+            (:class_key, :department_key)
+        </querytext>
+    </fullquery>
 
-  <fullquery name="dotlrn_class::get_term_id.get_term_id">
-    <querytext>
-      select term_id
-      from dotlrn_class_instances    
-      where class_instance_id = :class_instance_id
-    </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_key)
+        </querytext>
+    </fullquery>
 
+    <fullquery name="dotlrn_class::get_term_id.get_term_id">
+        <querytext>
+            select term_id
+            from dotlrn_class_instances    
+            where class_instance_id = :class_instance_id
+        </querytext>
+    </fullquery>
 
+    <fullquery name="dotlrn_class::can_create.can_create">
+        <querytext>
+            select count(*)
+            from dual
+            where exists (select 1
+                          from dotlrn_departments)
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_class::can_instantiate.can_instantiate">
+        <querytext>
+            select count(*)
+            from dotlrn_terms
+            where dotlrn_terms.end_date > sysdate
+            and not exists (select 1
+                            from dotlrn_class_instances
+                            where dotlrn_class_instances.class_key = :class_key
+                            and dotlrn_class_instances.term_id = dotlrn_terms.term_id)
+        </querytext>
+    </fullquery>
+
 </queryset>