forum::security::permissions (public)

 forum::security::permissions -forum_id forum_id [ -user_id user_id ] \
    array_name

Defined in packages/forums/tcl/forums-security-procs.tcl

Retrieve all relevant forum permissions in a single array of fields {admin_p moderate_p post_p}. admin_p and moderate_p are in fact just synonyms and will have the same value.

Switches:

-forum_id (required)

-user_id (optional)

user to check permissions for. Defaults to currently connected user.

Parameters:

array_name (required)

name of array in the caller namespace that will contain proc results after the call.

Testcases:

web_forums_message_and_reply

Source code:

        upvar $array_name array

        set user_id [expr {$user_id eq "" ? [ad_conn user_id] : $user_id}]

        set array(admin_p)    [permission::permission_p -object_id $forum_id -party_id $user_id -privilege "forum_moderate"]
        set array(moderate_p) $array(admin_p)
        set array(post_p)     [expr {$array(admin_p) || [forum::security::can_post_forum_p -forum_id $forum_id -user_id $user_id]}]

XQL Not present:

Generic, PostgreSQL, Oracle