ad_get_partner_query { var_list "partner_id" } { partner " " }What it does:
Returns the selection from the gs_partner table for the current partner and url. Selection includes all vars in var_list (default is just partner_id)Defined in: /web/philip/tcl/ad-partner-defs.tcl
Source code:
if { [empty_string_p $partner] } {
set partner [ad_partner_from_cookie]
}
set url [ns_conn url]
# The partner site would be the phrase between the first and second slash
# Note that the first slash has been removed
set stub "/[lindex [split $url "/"] 1]"
set stub [string trim $stub]
set sql_vars ""
foreach var $var_list {
if { ![empty_string_p $sql_vars] } {
append sql_vars ", "
}
append sql_vars "partner.$var"
}
return "select $sql_vars
from ad_partner partner, ad_partner_url url
where partner.partner_id=url.partner_id
and url.url_stub='[DoubleApos $stub]'
and partner.partner_cookie='[DoubleApos [string trim $partner]]'"