xo::ConnectionContext proc require
xo::ConnectionContext require
Defined in
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
-
test_xo_cc, xotcl-core
Source code:
set exists_cc [nsf::is object ::xo::cc]
if {$exists_cc && $keep_cc} {
return
}
if {[info exists ::ds_show_p] && [ds_database_enabled_p]} {
::xo::dc profile on
}
if {![info exists url]} {
if {[ns_conn isconnected]} {
set url [ad_conn url]
} else {
set url ""
ad_log error "fallback to empty url"
}
}
set package_id [:require_package_id_from_url -package_id $package_id $url]
if {[ns_conn isconnected]} {
ad_try {
set locale [lang::conn::locale -package_id $package_id]
} on error {errorMsg} {
ns_log warning "fall back to locale en_US"
set locale en_US
}
} else {
set locale [lang::system::locale -package_id $package_id]
}
if {!$exists_cc} {
try {
:create ::xo::cc -package_id $package_id -parameter_declaration $parameter -user_id $user_id -actual_query $actual_query -locale $locale -url $url
} on error {errorMsg} {
if {[nsf::is object ::xo::cc]} {
::xo::cc destroy
}
return -code error -errorcode $::errorCode -errorinfo $::errorInfo $errorMsg
}
::xo::cc destroy_on_cleanup
} else {
::xo::cc configure -url $url -actual_query $actual_query -locale $locale -parameter_declaration $parameter
::xo::cc package_id $package_id
::xo::cc set_user_id $user_id
::xo::cc process_query_parameter
}
::xo::cc mobile 0
if {[ns_conn isconnected]} {
set user_agent [string tolower [ns_set iget [ns_conn headers] User-Agent]]
::xo::cc mobile [regexp (android|webos|iphone|ipad) $user_agent]
}
if {![info exists ::ad_conn(charset)]} {
set ::ad_conn(charset) [lang::util::charset_for_locale $locale]
set ::ad_conn(language) [::xo::cc lang]
set ::ad_conn(file) ""
}
XQL Not present:Generic, PostgreSQL, Oracle
[
hide source ]
| [
make this the default ]