edu_action_to_pretty_roles db group_id actionWhat it does:
This takes an action and returns a string of roles that can perform that action.Defined in: /web/philip/tcl/education.tcl
Source code:
if {[empty_string_p $action]} { return Public } else { set roles_list [database_to_tcl_list $db "select pretty_role from user_group_action_role_map ugmap, edu_role_pretty_role_map role_map where group_id = $group_id and action = '$action' and ugmap.role = role_map.role order by sort_key"] return [join $roles_list ", "] }