xo::lti::LTI method init (protected)

 <instance of xo::lti::LTI> init

Defined in packages/xooauth/tcl/lti-procs.tcl

Parameter precedence: 1) configure parameters when lti handler is created 2) configure file section /lti/$provider 3) from configure file section /lti Iterate over class hierarchy until xo::lti::LTI is reached and set parameters.

Testcases:

No testcase defined.

Source code:

foreach c [:info precedence] {
    if {$c eq [current class]} {
        break
    }
    set key [string tolower [namespace tail $c]]
    :get_params_from_section "ns/server/[ns_info server]/lti/$key"

}
#
# Try to fill the gaps with the global LTI settings.
#
:get_params_from_section "ns/server/[ns_info server]/lti"

if {![info exists :roles]} {
    set default_role [expr {[llength [info commands dotlrn_community::get_community_id]] > 0
                            ? "Learner"
                            : "Member"}]

    set :roles [expr {[permission::permission_p  -party_id [::xo::cc user_id]  -object_id [ad_conn package_id]  -privilege "admin"] ? "Administrator" : $default_role}]
}
set :lis_person_sourcedid [acs_user::get -element username]
set :lis_person_contact_email_primary [acs_user::get -element email]
set :lis_person_name_given [acs_user::get -element first_names]
set :lis_person_name_family [acs_user::get -element last_name]
set :lis_person_name_full "[acs_user::get -element last_name] [acs_user::get -element first_names]"

XQL Not present:

Generic, PostgreSQL, Oracle