--- loncom/interface/loncoursedata.pm	2007/10/03 18:22:50	1.183
+++ loncom/interface/loncoursedata.pm	2007/11/06 04:39:19	1.184
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.183 2007/10/03 18:22:50 banghart Exp $
+# $Id: loncoursedata.pm,v 1.184 2007/11/06 04:39:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3100,6 +3100,9 @@ sub CL_STATUS   { return 7; }
 sub CL_TYPE     { return 8; }
 sub CL_LOCKEDTYPE   { return 9; }
 sub CL_GROUP    { return 10; }
+sub CL_PERMANENTEMAIL { return 11; }
+sub CL_ROLE     { return 12; }
+sub CL_EXTENT   { return 13; }
 
 sub get_classlist {
     my ($cdom,$cnum) = @_;