faq-new.tcl
Displays a form for creating a new faq.
- Location:
- /packages/faq/www/admin/faq-new.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
#faq/www/admin/faq-new.tcl ad_page_contract { Displays a form for creating a new faq. @author Elizabeth Wirth (wirth@ybos.net) @author Jennie Housman (jennie@ybos.net) @creation-date 2000-10-24 } { } -properties { context:onevalue faq_id:onevalue title:onevalue action:onevalue submit_label:onevalue faq_name:onevalue } permission::require_permission -object_id [ad_conn package_id] -privilege faq_create_faq set context [list [_ faq.Create_an_FAQ]] set title [_ faq.Create_an_FAQ] set action "faq-new-2" set submit_label [_ faq.Create_FAQ] set faq_name "" set faq_id [db_nextval acs_object_id_seq] ad_return_template # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: