version 1.13, 2018/05/28 23:26:04
|
version 1.14, 2018/05/30 18:06:13
|
Line 57 sub handler {
|
Line 57 sub handler {
|
} |
} |
} |
} |
# |
# |
# Retrieve data POSTed by LTI Consumer on launch |
# Retrieve data POSTed by LTI Consumer on launch |
# |
# |
&Apache::lonacc::get_posted_cgi($r); |
&Apache::lonacc::get_posted_cgi($r); |
my $params = {}; |
my $params = {}; |
Line 436 sub handler {
|
Line 436 sub handler {
|
my (@ltiroles,@lcroles); |
my (@ltiroles,@lcroles); |
my @lcroleorder = ('cc','in','ta','ep','st'); |
my @lcroleorder = ('cc','in','ta','ep','st'); |
my ($lcrolesref,$ltirolesref) = &LONCAPA::ltiutils::get_lc_roles($params->{'roles'}, |
my ($lcrolesref,$ltirolesref) = &LONCAPA::ltiutils::get_lc_roles($params->{'roles'}, |
\@lcroleorder); |
\@lcroleorder, |
|
$lti{$itemid}{maproles}); |
if (ref($lcrolesref) eq 'ARRAY') { |
if (ref($lcrolesref) eq 'ARRAY') { |
@lcroles = @{$lcrolesref}; |
@lcroles = @{$lcrolesref}; |
} |
} |
Line 661 sub lti_enroll {
|
Line 662 sub lti_enroll {
|
my %coursehash = &Apache::lonnet::coursedescription($cdom.'_'.$cnum); |
my %coursehash = &Apache::lonnet::coursedescription($cdom.'_'.$cnum); |
my $start = $coursehash{'default_enrollment_start_date'}; |
my $start = $coursehash{'default_enrollment_start_date'}; |
my $end = $coursehash{'default_enrollment_end_date'}; |
my $end = $coursehash{'default_enrollment_end_date'}; |
my $enrollresult = &LONCAPA::ltiutils::enrolluser($role,$cdom,$cnum,$sec,$start,$end); |
$enrollresult = &LONCAPA::ltiutils::enrolluser($udom,$uname,$role,$cdom,$cnum,$sec, |
if ($enrollresult eq 'ok') { |
$start,$end,1); |
my (%userroles,%newrole,%newgroups); |
|
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum, |
|
$area); |
|
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups); |
|
$userroles{'user.role.'.$spec} = $start.'.'.$end; |
|
&Apache::lonnet::appenv(\%userroles,[$role,'cm']); |
|
} |
|
} |
} |
} |
} |
return $enrollresult; |
return $enrollresult; |