version 1.372, 2018/08/14 18:24:04
|
version 1.373, 2018/09/18 14:30:19
|
Line 1879 sub do_ltipassback {
|
Line 1879 sub do_ltipassback {
|
my ($cdom,$cnum) = ($1,$2); |
my ($cdom,$cnum) = ($1,$2); |
my $ckey = $item->{'lti'}->{'key'}; |
my $ckey = $item->{'lti'}->{'key'}; |
my $secret = $item->{'lti'}->{'secret'}; |
my $secret = $item->{'lti'}->{'secret'}; |
|
my $msgformat = $item->{'lti'}->{'passbackformat'}; |
|
my $sigmethod = 'HMAC-SHA1'; |
my $id = $item->{'pbid'}; |
my $id = $item->{'pbid'}; |
my $url = $item->{'pburl'}; |
my $url = $item->{'pburl'}; |
my $scope = $item->{'scope'}; |
my $scope = $item->{'scope'}; |
Line 1897 sub do_ltipassback {
|
Line 1899 sub do_ltipassback {
|
($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 (($ckey ne '') && ($secret ne '') && ($id ne '') && ($url ne '') && ($possible)) { |
&LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$total,$possible); |
&LONCAPA::ltiutils::send_grade($id,$url,$ckey,$secret,$scoretype,$sigmethod, |
|
$msgformat,$total,$possible); |
} |
} |
} |
} |
} |
} |