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 -r1.4.28.1 -r1.4.28.2 --- openacs-4/packages/acs-templating/www/doc/demo/form.tcl 10 Sep 2015 08:22:10 -0000 1.4.28.1 +++ openacs-4/packages/acs-templating/www/doc/demo/form.tcl 22 May 2016 19:25:48 -0000 1.4.28.2 @@ -1,3 +1,10 @@ +ad_page_contract { + Demo page +} { + {user_id:integer,notnull ""} + {state:word ""} +} + form create add_user -elements { user_id -label "User ID" -datatype integer -widget hidden first_name -html { size 30 } -label "First Name" -datatype text @@ -23,12 +30,10 @@ if { [form is_valid add_user] } { - db_dml insert_sample " - insert into - ad_template_sample_users - values ( - :user_id, :first_name, :last_name, :address1, :address2, :city, :state - )" -bind [ns_getform] + db_dml insert_sample { + insert into ad_template_sample_users + values ( :user_id, :first_name, :last_name, :address1, :address2, :city, :state) + } -bind [ns_getform] template::forward index.html }