sec_lookup_property

sec_lookup_property   browser   id   module   name

Used as a helper procedure for util_memoize to look up a particular property from the database. Returns [list $property_value $secure_p].

Source code:

    set kind [ad_decode $browser "t" "browser" "session"]

    set db [ns_db gethandle log]
    set selection [ns_db 0or1row $db "
        select property_value, secure_p
        from sec_${kind}_properties
        where ${kind}_id = '[DoubleApos $id]'
        and module = '[DoubleApos $module]'
        and property_name = '[DoubleApos $name]'
    "]
    if { $selection == "" } {
	ns_db releasehandle $db
	return ""
    }

    set_variables_after_query
    ns_db releasehandle $db
    return [list $property_value $secure_p]