version 1.15, 2017/12/30 19:51:30
|
version 1.16, 2018/01/01 01:29:38
|
Line 110 sub handler {
|
Line 110 sub handler {
|
width => $toolsettings{'width'}, |
width => $toolsettings{'width'}, |
height => $toolsettings{'height'}, |
height => $toolsettings{'height'}, |
}; |
}; |
$toolhash{'crslabel'} = $toolsettings{'crslabel'}; |
foreach my $item (qw(crslabel crstitle crsappend gradable incdom)) { |
$toolhash{'crstitle'} = $toolsettings{'crstitle'}; |
$toolhash{$item} = $toolsettings{$item}; |
$toolhash{'crsappend'} = $toolsettings{'crsappend'}; |
} |
$toolhash{'gradable'} = $toolsettings{'gradable'}; |
|
$is_tool = 1; |
$is_tool = 1; |
} |
} |
} |
} |
Line 225 sub lti_params {
|
Line 224 sub lti_params {
|
my ($r,$cnum,$cdom,$idx,$submittext,$toolsref) = @_; |
my ($r,$cnum,$cdom,$idx,$submittext,$toolsref) = @_; |
my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale, |
my ($version,$context_type,$msgtype,$toolname,$passback,$roster,$locale, |
$crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap, |
$crslabel,$crstitle,$gradesecret,$rostersecret,%fields,%rolesmap, |
%display,%custom,@userlangs); |
%display,%custom,@userlangs,$incdom); |
if (ref($toolsref) eq 'HASH') { |
if (ref($toolsref) eq 'HASH') { |
$version = $toolsref->{'version'}; |
$version = $toolsref->{'version'}; |
$toolname = $toolsref->{'title'}; |
$toolname = $toolsref->{'title'}; |
Line 234 sub lti_params {
|
Line 233 sub lti_params {
|
$roster = $toolsref->{'roster'}; |
$roster = $toolsref->{'roster'}; |
$rostersecret = $toolsref->{'rostersecret'}; |
$rostersecret = $toolsref->{'rostersecret'}; |
$msgtype = $toolsref->{'messagetype'}; |
$msgtype = $toolsref->{'messagetype'}; |
|
$incdom = $toolsref->{'incdom'}; |
if (ref($toolsref->{'fields'}) eq 'HASH') { |
if (ref($toolsref->{'fields'}) eq 'HASH') { |
%fields = %{$toolsref->{'fields'}}; |
%fields = %{$toolsref->{'fields'}}; |
} |
} |
Line 403 sub lti_params {
|
Line 403 sub lti_params {
|
$ltiparams{'lis_person_contact_email_primary'} = $contact_email; |
$ltiparams{'lis_person_contact_email_primary'} = $contact_email; |
} |
} |
if ($fields{'user'}) { |
if ($fields{'user'}) { |
$ltiparams{'lis_person_sourcedid'} = $uname.':'.$udom; |
if ($incdom) { |
|
$ltiparams{'lis_person_sourcedid'} = $uname.':'.$udom; |
|
} else { |
|
$ltiparams{'lis_person_sourcedid'} = $uname; |
|
} |
} |
} |
if (keys(%custom)) { |
if (keys(%custom)) { |
foreach my $key (keys(%custom)) { |
foreach my $key (keys(%custom)) { |