ad_partner_cookie_select

one of the documented procedures in this installation of the ACS
Usage:
ad_partner_cookie_select   { sel "" }   { name "partner_cookie" }
What it does:
Returns an html select box to select a cookie based on partner_name
Defined in: /web/philip/tcl/ad-partner-defs.tcl

Source code:


    set var_list [ad_partner_memoize_list_from_db  "select partner_cookie, partner_name
	       from ad_partner
	      order by lower(partner_name)" [list partner_cookie partner_name]]
    set inner [list ""]
    set outer [list "-- Please Select --"]
    for { set i 0 } { $i < [llength $var_list] } { set i [expr $i + 2] } {
	lappend inner [lindex $var_list $i]
	lappend outer [lindex $var_list [expr $i + 1]]
    }
    return "
<select [export_form_value name]>
[ad_generic_option_list $outer $inner $sel]
</select>
"


philg@mit.edu