edu_bboard_grant_access db topic_idWhat it does:
checks if a user is part of the group_id and has the role that is specified in the row containing the input topic_id in bboard_topics. returns 1 if the user has the correct role in the correct group; returns 0 otherwiseDefined in: /web/philip/tcl/education.tcl
Source code:
set user_id [ad_verify_and_get_user_id $db] # assumes roles with lower priorities can take on roles with priorities # greater than or equal to its priority if {[database_to_tcl_string $db " select count(*) from bboard_topics t, user_group_map ugm, edu_role_pretty_role_map user_role, edu_role_pretty_role_map topic_role where ugm.user_id = $user_id and ugm.group_id=t.group_id and t.topic_id=$topic_id and ugm.role = user_role.role and topic_role.role=t.role(+) and user_role.priority<=topic_role.priority"]>0} { return 1 } else { return 0 }