Index: openacs-4/packages/faq/lib/faq-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/lib/faq-add-edit.tcl,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/packages/faq/lib/faq-add-edit.tcl 17 Jul 2018 13:32:18 -0000 1.7 +++ openacs-4/packages/faq/lib/faq-add-edit.tcl 2 Jul 2019 12:40:40 -0000 1.7.2.1 @@ -1,5 +1,11 @@ +ad_include_contract { + FAQ add/edit UI +} { + {mode ""} + {return_url ""} +} -if { ![info exists mode] || $mode eq "" } { +if { $mode eq "" } { set mode "edit" } @@ -15,7 +21,7 @@ } -edit_data { db_dml edit_faq {} } -after_submit { - if { ![info exists return_url] || $return_url eq "" } { + if { $return_url eq "" } { set return_url [export_vars -base one-faq { faq_id }] } ad_returnredirect $return_url