q-and-a-edit-2.tcl

Edits a particular Q and A

Location:

/packages/faq/www/admin/q-and-a-edit-2.tcl

Author:

Peter Vessenes peterv@ybos.net

Created:

2000-10-25

Related Files

• packages/faq/www/admin/q-and-a-edit-2.tcl

[ hide source ]

File Contents

#faq/www/admin/q-and-a-edit-2.tcl

ad_page_contract {

    Edits a particular Q and A

    @author Peter Vessenes peterv@ybos.net
    @creation-date 2000-10-25
} {
    entry_id:object_type(faq_q_and_a)
    question:html
    answer:html
    
} 

permission::require_permission -object_id [ad_conn package_id] -privilege faq_modify_faq
# Don't forget to do the permissioning

db_dml q_and_a_edit "update faq_q_and_as
                  set question = :question,
                  answer = :answer
                  where entry_id = :entry_id"

set faq_id [db_string select_faq_id "select faq_id from 
                         faq_q_and_as 
                         where entry_id = :entry_id"]

ad_returnredirect "one-faq?faq_id=$faq_id"
ad_script_abort

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