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

[ 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