Source of state.tcl

ad_page_contract {
  $Id: state.tcl,v 1.2 2017/08/07 23:48:02 gustafn Exp $
} -query {
    state_abbrev
} -properties {} -validate {
    validate_state_abbrev -requires state_abbrev {
        if {$state_abbrev ni {CA HI NV}} {
            ad_complain  "Invalid state abbreviation $state_abbrev."
        }
    }
}

set query {
    select 
        first_name, last_name, state
    from
        ad_template_sample_users
    where
        state = :state_abbrev
        order by last_name
}
          
db_multirow users state_query $query


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