Index: openacs-4/packages/acs-templating/www/doc/demo/bind.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/bind.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/acs-templating/www/doc/demo/bind.tcl 10 Sep 2015 08:22:09 -0000 1.3.2.1 +++ openacs-4/packages/acs-templating/www/doc/demo/bind.tcl 1 Jun 2016 09:40:19 -0000 1.3.2.2 @@ -1,13 +1,20 @@ ad_page_contract { - @cvs-id $Id$ + @cvs-id $Id$ } { - user_id:naturalnum,notnull + user_id:naturalnum,notnull } -properties { - users:onerow + users:onerow +} -validate { + valid_user_id -requires user_id { + if {![db_0or1row user_exists { + select 1 from ad_template_sample_users + where user_id = :user_id + }]} { + ad_complain "Invalid user ID" + } + } } - - set query "select first_name, last_name from