validate_bboard_access topic_id read_access user_idWhat it does:
Return 1 if user has access to forum, otherwise return 0Defined in: /web/philip/tcl/bboard-unified.tcl
Source code:
set access_allowed 0
# This mess is to try to avoid the subquery for the common case ("any" or "public" access)
if { [string compare $read_access "any"] == 0 ||
[string compare $read_access "public"] == 0 } {
set access_allowed 1
} else {
set db_sub [ns_db gethandle subquery]
if { ([string compare $read_access "group"] == 0 &&
[ad_permission_p $db_sub bboard $topic_id "" $user_id]) ||
[ad_administration_group_member $db_sub "site_wide" "" $user_id] } {
set access_allowed 1
}
ns_db releasehandle $db_sub
}
return $access_allowed