ad_partner_cookie_select

ad_partner_cookie_select   { sel "" }   { name "partner_cookie" }

Returns an html select box to select a cookie based on partner_name

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>
"