edu_get_class_original_role_pretty_roleWhat it does:
This returns the list of roles and corresponding pretty role and plural pretty role that are used to initialize the roles for a class. This procedure should only be called from the procedure that sets up a class. It is a proc only so that is is next to the other place role are hardcoded into TCLDefined in: /web/philip/tcl/education.tcl
Source code:
return [list [list [edu_get_professor_role_string] Professor Professors] [list [edu_get_ta_role_string] "Teaching Assistant" "Teaching Assistants"] [list [edu_get_student_role_string] Student Students] [list [edu_get_dropped_role_string] Dropped Dropped]]