value_if_exists (public, deprecated)

 value_if_exists var_name

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

Deprecated. Invoking this procedure generates a warning.

If the specified variable exists in the calling environment, returns the value of that variable. Otherwise, returns the empty_string. DEPRECATED: this proc does not respect OpenACS naming convention and can be replaced with a plain tcl oneliner.

Parameters:

var_name (required)

See Also:

• plain tcl idioms

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc value_if_exists
    upvar $var_name $var_name
    if { [info exists $var_name] } {
        return [set $var_name]
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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