version 1.375, 2023/04/02 03:16:28
|
version 1.376, 2023/06/02 01:20:27
|
Line 1930 sub do_ltipassback {
|
Line 1930 sub do_ltipassback {
|
if (ref($item) eq 'HASH') { |
if (ref($item) eq 'HASH') { |
if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) { |
if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) { |
my ($cdom,$cnum) = ($1,$2); |
my ($cdom,$cnum) = ($1,$2); |
my $ckey = $item->{'lti'}->{'key'}; |
|
my $secret = $item->{'lti'}->{'secret'}; |
|
my $msgformat = $item->{'lti'}->{'passbackformat'}; |
my $msgformat = $item->{'lti'}->{'passbackformat'}; |
my $sigmethod = 'HMAC-SHA1'; |
my $sigmethod = 'HMAC-SHA1'; |
|
my $ltinum = $item->{'ltinum'}; |
my $id = $item->{'pbid'}; |
my $id = $item->{'pbid'}; |
my $url = $item->{'pburl'}; |
my $url = $item->{'pburl'}; |
|
my $type = $item->{'pbtype'}; |
my $scope = $item->{'scope'}; |
my $scope = $item->{'scope'}; |
my $map = $item->{'ltimap'}; |
my $map = $item->{'ltimap'}; |
my $symb = $item->{'ltisymb'}; |
my $symb = $item->{'ltisymb'}; |
my $uname = $item->{'uname'}; |
my $uname = $item->{'uname'}; |
my $udom = $item->{'udom'}; |
my $udom = $item->{'udom'}; |
|
my $keynum = $item->{'lti'}->{'cipher'}; |
|
my $crsdef = $item->{'crsdef'}; |
my $scoretype = $item->{'format'}; |
my $scoretype = $item->{'format'}; |
my ($total,$possible); |
my ($total,$possible); |
if ($scope eq 'resource') { |
if ($scope eq 'resource') { |
Line 1951 sub do_ltipassback {
|
Line 1953 sub do_ltipassback {
|
} elsif ($scope eq 'course') { |
} elsif ($scope eq 'course') { |
($total,$possible) = &get_lti_score($uname,$udom); |
($total,$possible) = &get_lti_score($uname,$udom); |
} |
} |
if (($ckey ne '') && ($secret ne '') && ($id ne '') && ($url ne '') && ($possible)) { |
if (($id ne '') && ($url ne '') && ($possible)) { |
&LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$sigmethod, |
&LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id,$url,$scoretype,$sigmethod,$msgformat,$total,$possible); |
$msgformat,$total,$possible); |
|
} |
} |
} |
} |
} |
} |