ad_permission_count db on_what_id on_which_table { permission_type " " }What it does:
Returns the number of permissions granted on the specified row in the database (of the specified permission type, if supplied).Defined in: /web/philip/tcl/ad-general-permissions.tcl
Source code:
set query "select count(*) from general_permissions where on_what_id = $on_what_id and on_which_table = lower('$on_which_table')" if { ![empty_string_p $permission_type] } { append query " and permission_type = '[DoubleApos $permission_type]'" } return [database_to_tcl_string $db $query]