Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	30 Sep 2001 20:08:47 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	3 Oct 2001 21:11:00 -0000	1.4
@@ -18,6 +18,13 @@
 
 namespace eval dotlrn {
 
+    ad_proc -public class_group_type_key {
+    } {
+	Returns the group type key used for class groups
+    } {
+	return [ad_parameter class_group_type_key]
+    }
+
     ad_proc -public group_type_key {
     } {
 	Returns the group_type key that is being used for class management