--- loncom/homework/lonhomework.pm 2018/08/14 18:24:04 1.372 +++ loncom/homework/lonhomework.pm 2018/09/18 14:30:19 1.373 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.372 2018/08/14 18:24:04 raeburn Exp $ +# $Id: lonhomework.pm,v 1.373 2018/09/18 14:30:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1879,6 +1879,8 @@ sub do_ltipassback { my ($cdom,$cnum) = ($1,$2); my $ckey = $item->{'lti'}->{'key'}; my $secret = $item->{'lti'}->{'secret'}; + my $msgformat = $item->{'lti'}->{'passbackformat'}; + my $sigmethod = 'HMAC-SHA1'; my $id = $item->{'pbid'}; my $url = $item->{'pburl'}; my $scope = $item->{'scope'}; @@ -1897,7 +1899,8 @@ sub do_ltipassback { ($total,$possible) = &get_lti_score($uname,$udom); } 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); } } }