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: