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
[ hide source ] | [ make this the default ]
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: