Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	19 Feb 2002 19:34:45 -0000	1.22
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	6 Mar 2002 22:35:15 -0000	1.23
@@ -187,4 +187,21 @@
     } {
         return [dotlrn_term::get_term_year -term_id [get_term_id -class_instance_id $class_instance_id]]
     }
+
+    ad_proc -public can_create {
+    } {
+        can a class be created? essentially, does at least one department
+        exist?
+    } {
+        return [db_string can_create {}]
+    }
+
+    ad_proc -public can_instantiate {
+        {-class_key:required}
+    } {
+        can this class be instantiated?
+    } {
+        return [db_string can_instantiate {}]
+    }
+
 }