ad_partner_cookie_select { sel " " } { name "partner_cookie" }What it does:
Returns an html select box to select a cookie based on partner_nameDefined 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> "