ad_partner_list_all_vars

one of the documented procedures in this installation of the ACS
Usage:
ad_partner_list_all_vars
What it does:
Returns a list of pairs. Each pair is where variable_name is one of the variables in the ad_partner table. This is great for simple text fields
Defined in: /web/philip/tcl/ad-partner-defs.tcl

Source code:



    # we could use ad_parameter_section (defined in ad-defs.tcl)
    # but don't want to rely on it being defined already, so we get
    # the .ini section directly
    
    set server_name [ns_info server]
    set config_path ""
    append config_path "ns/server/" $server_name "/acs/partner"
    set ad_partner_vars [ns_configsection $config_path]

    ns_log Notice "/tcl/ad-partner.tcl has found [ns_set size $ad_partner_vars] variables (specified in $config_path)"

    set var_list [list]
    # now we have an ns_set of all the specs
    for {set i 0} {$i<[ns_set size $ad_partner_vars]} {incr i} {
	set key [ns_set key $ad_partner_vars $i]
	if { [string compare $key "Variable"] == 0 } {
	    set value [ns_set value $ad_partner_vars $i]
	    lappend var_list [split $value "|"]
	}
    }

    return $var_list



philg@mit.edu