commentability-toggle.tcl
Toggle commentability status of an object.
- Location:
- /packages/static-pages/www/admin/commentability-toggle.tcl
- Author:
- Brandoch Calef <bcalef@arsdigita.com>
- Created:
- 2001-02-20
- CVS ID:
$Id: commentability-toggle.tcl,v 1.3 2014/08/07 07:30:29 gustafn Exp $
Related Files
- packages/static-pages/www/admin/commentability-toggle.tcl
- packages/static-pages/www/admin/commentability-toggle-postgresql.xql
- packages/static-pages/www/admin/commentability-toggle-oracle.xql
[ hide source ] | [ make this the default ]
File Contents
# packages/static-pages/www/admin/commentability-toggle.tcl ad_page_contract { Toggle commentability status of an object. @author Brandoch Calef (bcalef@arsdigita.com) @creation-date 2001-02-20 @cvs-id $Id: commentability-toggle.tcl,v 1.3 2014/08/07 07:30:29 gustafn Exp $ } { item_id:naturalnum,notnull recurse:boolean } if [permission::permission_p -party_id [acs_magic_object the_public] -object_id $item_id -privilege general_comments_create] { db_exec_plsql revoke_commentability { begin static_page.revoke_permission(:item_id,acs.magic_object_id('the_public'),'general_comments_create', :recurse); end; } } else { db_exec_plsql grant_commentability { begin static_page.grant_permission(:item_id,acs.magic_object_id('the_public'),'general_comments_create', :recurse); end; } } ad_returnredirect commentability