faq-delete.tcl

Delete a FAQ

Location:
/packages/faq/www/admin/faq-delete.tcl
Authors:
Elizabeth Wirth <wirth@ybos.net>
Jennie Housman <jennie@ybos.net>
Created:
2000-10-24

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Delete a FAQ
    @author Elizabeth Wirth (wirth@ybos.net)
    @author Jennie Housman (jennie@ybos.net)
    @creation-date 2000-10-24

} {
    faq_id:object_type(faq)
}

set package_id [ad_conn package_id]

permission::require_permission -object_id  $package_id -privilege faq_delete_faq

db_exec_plsql delete_faq {}

ad_returnredirect "index"
ad_script_abort

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