ad_dimensional_settings (public, deprecated)

 ad_dimensional_settings define current

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

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...

Parameters:

define (required)

current (required)

See Also:

• ad_form
• template::form
• Generic::Form
• xowiki::Form
• xowiki::FormPage

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_dimensional_settings
    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 --</option>"
        if {$current ne ""
            && [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 {$picked eq [lindex $val 0] } {
                append html "<option selected=\"selected\" value=\"[ns_quotehtml [lindex $val 0]]\">[lindex $val 1]</option>\n"
            } else {
                append html "<option value=\"[ns_quotehtml [lindex $val 0]]\">[lindex $val 1]</option>\n"
            }
        }
        append html "</select></td></tr>\n"
    }
    return $html

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql