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.1 -r1.2
--- openacs-4/packages/acs-templating/www/doc/demo/form.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/acs-templating/www/doc/demo/form.tcl	27 Apr 2001 02:27:09 -0000	1.2
@@ -16,28 +16,21 @@
 
 if { [form is_request add_user] } {
 
-  set db [ns_db gethandle]
-
   set query "select ad_template_sample_users_seq.nextval from dual"
-  template::query user_id onevalue $query -db $db
+  template::query get_user_id user_id onevalue $query
 
-  ns_db releasehandle $db
-
   element set_properties add_user user_id -value $user_id
 }
 
 if { [form is_valid add_user] } {
 
-  set db [ns_db gethandle]
   
-  ns_ora dml $db -bind [ns_getform] "
+  db_dml insert_sample -bind [ns_getform] "
     insert into 
       ad_template_sample_users 
     values (
       :user_id, :first_name, :last_name, :address1, :address2, :city, :state
     )"
 
-  ns_db releasehandle $db
-
   template::forward index.html
 }