:require_form_parameter
set name $specregexp {^([^:]+):(.*)$} $spec . name constraint
if {[info exists :form_parameter($name)]} {
if {[info exists :form_parameter_multiple($name)]} {
set value [set :form_parameter($name)]
} else {
set value [lindex [set :form_parameter($name)] 0]
}
if {[info exists constraint]} {
set r [xo::validate_parameter_constraints$name$constraint$value]
if {$r ne $value} {
ns_log notice "converting value checker: form parameter validate <$spec> -> '$value' -> '$r'"set value $r
}
} else {
#:msg "FORM_PARAMETER spec <$spec> no constraint -> '$value'"
}
return$value
} else {
return$default
}