faq-disable.tcl

disable an FAQ

Location:

/packages/faq/www/admin/faq-disable.tcl

Author:

Lars Pind <lars@collaboraid.biz>

Created:

2003-03-06

Related Files

• packages/faq/www/admin/faq-disable.xql
• packages/faq/www/admin/faq-disable.tcl

[ hide source ]

File Contents

ad_page_contract {

    disable an FAQ
    @author Lars Pind (lars@collaboraid.biz)
    @creation-date 2003-03-06

} {
    faq_id:object_type(faq)
    {referer:localurl "index"}
}
set package_id [ad_conn package_id]

permission::require_permission -object_id  $package_id -privilege faq_delete_faq

db_dml disable_faq {}

ad_returnredirect $referer
ad_script_abort

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