permissions.tcl

Permissions for the subsite itself.

Location:

/packages/forums/www/admin/permissions.tcl

Author:

Lars Pind <lars@collaboraid.biz>

Created:

2003-06-13

CVS ID:

$Id: permissions.tcl,v 1.4.2.1 2022/07/15 16:19:56 antoniop Exp $

Related Files

• packages/forums/www/admin/permissions.tcl
• packages/forums/www/admin/permissions.adp

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Permissions for the subsite itself.
    
    @author Lars Pind (lars@collaboraid.biz)
    @creation-date 2003-06-13
    @cvs-id $Id: permissions.tcl,v 1.4.2.1 2022/07/15 16:19:56 antoniop Exp $
} {
    object_id:object_type(apm_package|forums_forum)
}

if { $object_id == [ad_conn package_id] } {
    set page_title "Permissions"
} else {
    forum::get -forum_id $object_id -array forum
    set page_title "$forum(name) Permissions"
}

set context [list $page_title]


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: