faq-add-edit.tcl

FAQ add/edit UI

Location:
/packages/faq/lib/faq-add-edit.tcl

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_include_contract {
    FAQ add/edit UI
} {
    {mode:oneof(display|edit) "edit"}
    {return_url:localurl ""}
}

ad_form -name faq_add_edit -mode $mode -action "faq-add-edit" -form {
    faq_id:key
    {faq_name:text(text) {label "#faq.Name#"} {html { size 50 }}}
    {separate_p:text(select) {label "#faq.QA_on_Separate_Pages#"} { options {{[_ faq.No] f} {[_ faq.Yes] t}} } }
} -select_query_name get_faq -new_data {
    set user_id [ad_conn user_id]
    set creation_ip [ad_conn host]
    set package_id [ad_conn package_id]
    set faq_id [db_exec_plsql create_faq {}]
} -edit_data {
    db_dml edit_faq {}
} -after_submit {
   if { $return_url eq "" } {
       set return_url [export_vars -base one-faq { faq_id }]
   }
   ad_returnredirect $return_url
   ad_script_abort
}

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