version 1.12, 2018/05/30 17:22:30
|
version 1.13, 2018/08/12 02:24:42
|
Line 488 sub lti_provider_scope {
|
Line 488 sub lti_provider_scope {
|
$scope = 'map'; |
$scope = 'map'; |
$realuri = $tail; |
$realuri = $tail; |
} else { |
} else { |
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($tail); |
my $symb = $tail; |
|
$symb =~ s{^/}{}; |
|
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb); |
$realuri = &Apache::lonnet::clutter($url); |
$realuri = &Apache::lonnet::clutter($url); |
if ($url =~ /\.sequence$/) { |
if ($url =~ /\.sequence$/) { |
$scope = 'map'; |
$scope = 'map'; |
} else { |
} else { |
$scope = 'resource'; |
$scope = 'resource'; |
$realuri .= '?symb='.$tail; |
$realuri .= '?symb='.$symb; |
$passkey = $tail; |
$passkey = $symb; |
if ($getunenc) { |
if ($getunenc) { |
$unencsymb = $tail; |
$unencsymb = $symb; |
} |
} |
} |
} |
} |
} |
Line 507 sub lti_provider_scope {
|
Line 509 sub lti_provider_scope {
|
$scope = 'map'; |
$scope = 'map'; |
$realuri = $tail; |
$realuri = $tail; |
} else { |
} else { |
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($tail); |
my $symb = $tail; |
|
$symb =~ s{^/?res/}{}; |
|
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($symb); |
$realuri = &Apache::lonnet::clutter($url); |
$realuri = &Apache::lonnet::clutter($url); |
if ($url =~ /\.sequence$/) { |
if ($url =~ /\.sequence$/) { |
$scope = 'map'; |
$scope = 'map'; |
} else { |
} else { |
$scope = 'resource'; |
$scope = 'resource'; |
$realuri .= '?symb='.$tail; |
$realuri .= '?symb='.$symb; |
$passkey = $tail; |
$passkey = $symb; |
if ($getunenc) { |
if ($getunenc) { |
$unencsymb = $tail; |
$unencsymb = $symb; |
} |
} |
} |
} |
} |
} |
Line 562 sub lti_provider_scope {
|
Line 566 sub lti_provider_scope {
|
} elsif (($tail =~ m{^/$cdom/$cnum$}) || ($tail eq '')) { |
} elsif (($tail =~ m{^/$cdom/$cnum$}) || ($tail eq '')) { |
$scope = 'course'; |
$scope = 'course'; |
$realuri = '/adm/navmaps'; |
$realuri = '/adm/navmaps'; |
$passkey = $tail; |
$passkey = ''; |
} |
} |
if ($scope eq 'map') { |
if ($scope eq 'map') { |
$passkey = $realuri; |
$passkey = $realuri; |
Line 588 sub get_roster {
|
Line 592 sub get_roster {
|
lti_message_type => 'basic-lis-readmembershipsforcontext', |
lti_message_type => 'basic-lis-readmembershipsforcontext', |
ext_ims_lis_memberships_id => $id, |
ext_ims_lis_memberships_id => $id, |
); |
); |
my $hashref = &sign_params($url,$ckey,$secret,\%ltiparams); |
my $hashref = &sign_params($url,$ckey,$secret,'',\%ltiparams); |
if (ref($hashref) eq 'HASH') { |
if (ref($hashref) eq 'HASH') { |
my $request=new HTTP::Request('POST',$url); |
my $request=new HTTP::Request('POST',$url); |
$request->content(join('&',map { |
$request->content(join('&',map { |
Line 671 sub send_grade {
|
Line 675 sub send_grade {
|
result_statusofresult => 'final', |
result_statusofresult => 'final', |
result_date => $date, |
result_date => $date, |
); |
); |
my $hashref = &sign_params($url,$ckey,$secret,\%ltiparams); |
my $hashref = &sign_params($url,$ckey,$secret,'',\%ltiparams); |
if (ref($hashref) eq 'HASH') { |
if (ref($hashref) eq 'HASH') { |
my $request=new HTTP::Request('POST',$url); |
my $request=new HTTP::Request('POST',$url); |
$request->content(join('&',map { |
$request->content(join('&',map { |