dp_var_value varnameWhat it does:
get the value of $varname one way or another: 1) if dp_form exists, it uses those values to fill the form fields. 2) if dp_form is missing, it looks for dp_select, which should be an ns_set from a [ns_db select]Defined in: /web/philip/tcl/data-pipeline-defs.tcl
Source code:
upvar dp_form dp_form if [info exists dp_form] { if {[ns_set find $dp_form $varname] != -1} { return [ns_set get $dp_form $varname] } else { # strip off the data type and look for it again in dp_form. set varname_no_data_type [join [lrange [split $varname .] 0 2] "."] return [ns_set get $dp_form $varname_no_data_type] } } else { upvar dp_select dp_select if [info exists dp_select] { if [empty_string_p $dp_select] { return "" } set colname [lindex [split $varname .] 2] return [ns_set get $dp_select $colname] } else { # give up return } }