dp_list_packed_vars { form_index " " }What it does:
Lists all the variables in the dp_form that start with dp$form_index.*Defined in: /web/philip/tcl/data-pipeline-defs.tcl
Source code:
upvar dp_form dp_form
if {![info exists dp_form] || [empty_string_p $dp_form]} {
return
} else {
set size [ns_set size $dp_form]
for {set i 0} {$i < $size} {incr i} {
if [string match dp${form_index}.* [ns_set key $dp_form $i]] {
lappend dp_packed_vars [ns_set key $dp_form $i]
}
}
if [info exists dp_packed_vars] {
return $dp_packed_vars
} else {
return
}
}