forum::posting_policy_set (public, deprecated)

 forum::posting_policy_set -posting_policy posting_policy \
    -forum_id forum_id

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

Deprecated. Invoking this procedure generates a warning.

Set the posting policy. This used to happen by setting permissions on the registered_users group, but was reformed to be just a flag on the forum itself in order to support subsite installation. Please use forum::edit instead.

Switches:

-posting_policy (required)

-forum_id (required)

See Also:

• forum::edit

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc forum::posting_policy_set
    forum::edit -forum_id $forum_id  -posting_policy $posting_policy
    # # JCD: this is potentially bad since we are
    # # just assuming registered_users is the
    # # right group to be granting write to.

    # if {"closed" ne $posting_policy } {
    #     permission::grant -object_id $forum_id  #         -party_id [acs_magic_object registered_users]  #         -privilege write
    # } else {
    #     permission::revoke -object_id $forum_id  #         -party_id [acs_magic_object registered_users]  #         -privilege write
    # }

Generic XQL file:

packages/forums/tcl/forums-procs.xql

PostgreSQL XQL file:

packages/forums/tcl/forums-procs-postgresql.xql

Oracle XQL file:

packages/forums/tcl/forums-procs-oracle.xql