ad_dimensional_settings

one of the documented procedures in this installation of the ACS
Usage:
ad_dimensional_settings   define   current
What 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


philg@mit.edu