util_PrettyBoolean (public, deprecated)

 util_PrettyBoolean t_or_f [ default ]

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

Deprecated. Invoking this procedure generates a warning.

Parameters:

t_or_f (required)

default (optional, defaults to "default")

See Also:

• tcl string is true/false
• lang::message::lookup

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc util_PrettyBoolean
    if { $t_or_f == "t" || $t_or_f eq "T" } {
        return "Yes"
    } elseif { $t_or_f == "f" || $t_or_f eq "F" } {
        return "No"
    } else {
        # Note that we can't compare default to the empty string as in
        # many cases, we are going want the default to be the empty
        # string
        if { $default eq "default"  } {
            return "Unknown (\"$t_or_f\")"
        } else {
            return $default
        }
    }

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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