dp_set_form_variables_after_query { form_index " " } { table_name " " }What it does:
Copy variables from the ns_set $selection into the ns_set $dp_form with the proper naming conventions for the data pipeline. Caller must have $selection (just as for [set_variables_after_query])Defined in: /web/philip/tcl/data-pipeline-defs.tcl
Source code:
upvar selection selection upvar dp_form dp_form if {![info exists selection] || [empty_string_p $selection]} { return "" } if {![info exists dp_form] || [empty_string_p dp_form]} { set dp_form [ns_set new] } set form_size [ns_set size $selection] set form_ctr 0 while {$form_ctr<$form_size} { ns_set put $dp_form "dp$form_index.$table_name.[ns_set key $selection $form_ctr]" [ns_set value $selection $form_ctr] incr form_ctr } return $dp_form