Index: openacs-4/packages/survey/www/admin/survey-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-delete.tcl,v diff -u -N -r1.7.4.1 -r1.7.4.2 --- openacs-4/packages/survey/www/admin/survey-delete.tcl 17 Dec 2019 16:28:44 -0000 1.7.4.1 +++ openacs-4/packages/survey/www/admin/survey-delete.tcl 9 Feb 2020 16:10:31 -0000 1.7.4.2 @@ -25,21 +25,28 @@ {survey_id:text(hidden) {value $survey_id}} {warning:text(inform) {label "[_ survey.Warning_1]"} {value "[_ survey.lt_Deleting_this_surve]"}} {confirmation:text(radio) {label " "} - {options - {{"[_ survey.Continue_with_Delete]" t } - {"[_ survey.lt_Cancel_and_return_to__1]" f }} } - {value f} + {options + {{"[_ survey.Continue_with_Delete]" t } + {"[_ survey.lt_Cancel_and_return_to__1]" f }} + } + {value f} } } -on_submit { if {$confirmation} { - db_exec_plsql delete_survey {} - ad_returnredirect "." + db_exec_plsql delete_survey {} + ad_returnredirect "." ad_script_abort } else { - ad_returnredirect [export_vars -base one survey_id] + ad_returnredirect [export_vars -base one survey_id] ad_script_abort } } set context [_ survey.Delete_Survey] + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: