|
version 1.1, 2016/01/11 16:42:37
|
version 1.2, 2016/01/25 20:13:02
|
|
Line 175 sub lti_params {
|
Line 175 sub lti_params {
|
| @userlangs=(@userlangs,split(/\s*(\,|\;|\:)\s*/, |
@userlangs=(@userlangs,split(/\s*(\,|\;|\:)\s*/, |
| $env{'course.'.$env{'request.course.id'}.'.languages'})); |
$env{'course.'.$env{'request.course.id'}.'.languages'})); |
| } else { |
} else { |
| my %langhash = &getlangs($uname,$udom); |
my %langhash = &Apache::loncommon::getlangs($uname,$udom); |
| if ($langhash{'languages'} ne '') { |
if ($langhash{'languages'} ne '') { |
| @userlangs = split(/\s*(\,|\;|\:)\s*/,$langhash{'languages'}); |
@userlangs = split(/\s*(\,|\;|\:)\s*/,$langhash{'languages'}); |
| } else { |
} else { |
|
Line 266 sub lti_params {
|
Line 266 sub lti_params {
|
| last; |
last; |
| } |
} |
| } |
} |
| $ltiparams{'lis_person_contact_email_primary'} = &contact_email; |
$ltiparams{'lis_person_contact_email_primary'} = $contact_email; |
| } |
} |
| if (keys(%custom)) { |
if (keys(%custom)) { |
| foreach my $key (keys(%custom)) { |
foreach my $key (keys(%custom)) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonexttool.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface