ad_dimensional_set_variables (public, deprecated)

 ad_dimensional_set_variables option_list [ options_set ]

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

Deprecated. Invoking this procedure generates a warning.

set the variables defined in option_list from the form provided (form defaults to ad_conn form) or to default value from option_list if not in the form data.

You only really need to call this if you need the variables (for example to pick which select statement and table to actually use)

Parameters:

option_list (required)

options_set (optional)

See Also:

• ns_set

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_dimensional_set_variables
    set out {}

    if {$option_list eq ""} {
        return
    }

    if {$options_set eq ""} {
        set options_set [ns_getform]
    }

    foreach option $option_list {
        # find out what the current option value is.
        # check if a default is set otherwise the first value is used
        set option_key [lindex $option 0]
        set option_val {}
        # get the option from the form
        if { $options_set ne "" && [ns_set find $options_set $option_key] != -1} {
            uplevel [list set $option_key [ns_set get $options_set $option_key]]
        } else {
            uplevel [list set $option_key [lindex $option 2]]
        }
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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