ad_dimensional_settings define currentWhat it does:
given a dimensional slider definition this routine returns a form to set the defaults for the given slider. NB...this does not close either the table or the form...Defined in: /web/philip/packages/acs-core/table-display-procs.tcl
Source code:
foreach opt $define { append html "<tr><th align=left>[lindex $opt 1]</th><td>" append html "<select name=[lindex $opt 0]>" #append html "<option value=\"\">-- Unset --" if {![empty_string_p $current] && [ns_set find $current [lindex $opt 0]] > -1} { set picked [ns_set get $current [lindex $opt 0]] } else { set picked [lindex $opt 2] } foreach val [lindex $opt 3] { if {[string compare $picked [lindex $val 0]] == 0} { append html "<option SELECTED value=\"[philg_quote_double_quotes [lindex $val 0]]\">[lindex $val 1]\n" } else { append html "<option value=\"[philg_quote_double_quotes [lindex $val 0]]\">[lindex $val 1]\n" } } append html "</select></td></tr>\n" } return $html