Index: openacs-4/packages/acs-templating/www/doc/demo/form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/form.tcl,v diff -u -N -r1.4.28.3 -r1.4.28.4 --- openacs-4/packages/acs-templating/www/doc/demo/form.tcl 27 May 2016 08:47:35 -0000 1.4.28.3 +++ openacs-4/packages/acs-templating/www/doc/demo/form.tcl 1 Oct 2016 11:02:47 -0000 1.4.28.4 @@ -18,10 +18,10 @@ valid_length {expr {[string length $value] == 2} } { State must be 2 characters in length } \ valid_range {expr {$value in {CA HI NV}}} { Invalid state } \ } -} -html { - onSubmit "return confirm('Are you sure you want to submit?');" } +template::add_acs_confirm_handler -event submit -id add_user -message "Are you sure you want to submit?" + # set values if { [form is_request add_user] } {