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.36 -r1.37
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	18 May 2002 22:42:11 -0000	1.36
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	21 May 2002 00:53:58 -0000	1.37
@@ -180,19 +180,6 @@
         return $community_id
     }
 
-    ad_proc -public available_roles {
-    } {
-        Returns the available roles
-    } {
-        return {
-            {instructor_rel "Professor"}
-            {aa_rel "Course Assistant"}
-            {ta_rel "Teaching Assistant"}
-            {student_rel "Student"}
-            {admin_rel "Administrator"}
-        }
-    }
-
     ad_proc -public add_user {
         {-rel_type ""}
         {-community_id:required}