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.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/form.tcl	20 Feb 2002 21:07:13 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/form.tcl	22 Aug 2002 03:13:24 -0000	1.4
@@ -16,8 +16,7 @@
 
 if { [form is_request add_user] } {
 
-    set query "select ad_template_sample_users_seq.nextval from dual"
-    template::query get_user_id user_id onevalue $query
+    set user_id [db_string get_user_id ""]
 
     element set_properties add_user user_id -value $user_id
 }