Source of bind.tcl

ad_page_contract {
    @cvs-id $Id: bind.tcl,v 1.4 2017/08/07 23:48:02 gustafn Exp $
} {
    user_id:naturalnum,notnull
} -properties {
    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
             ad_template_sample_users
           where user_id = :user_id"

db_1row users_query $query -column_array users

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: