callback::navigation::package_admin::impl::forums (private)

 callback::navigation::package_admin::impl::forums

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

Return the admin actions for the forum package.

See Also:

• callback::navigation::package_admin::contract

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

Testcases:

No testcase defined.

Source code:

    ::callback::navigation::package_admin::contract__arg_parser {*}$args

    set actions {}

    # Check for admin on the package...
    if {[permission::permission_p -object_id $package_id -privilege admin -party_id $user_id]} {
        lappend actions  [list LINK  admin/  [_ acs-kernel.common_Administration] {} [_ forums.Admin_for_all]]  [list LINK  [export_vars -base admin/permissions {{object_id $package_id}}]  [_ acs-kernel.common_Permissions] {} [_ forums.Permissions_for_all]]  [list LINK admin/forum-new [_ forums.Create_a_New_Forum] {} {}]
    }

    # check for admin on the individual forums.
    db_foreach forums {
        select forum_id, name, enabled_p
        from forums_forums
        where package_id = :package_id
    } {
        if {[permission::permission_p -object_id $forum_id -privilege admin -party_id $user_id]} {

            lappend actions  [list SECTION "Forum $name ([expr {$enabled_p ? [_ forums.enabled] : [_ forums.disabled]}])" {}]  [list LINK  [export_vars -base admin/forum-edit forum_id]  [_ forums.Edit_forum_name] {} {}]  [list LINK  [export_vars -base admin/permissions {{object_id $forum_id} return_url}]  [_ forums.Permission_forum_name] {} {}]
        }
    }
    return $actions

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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