loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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);
}	}
}	}
}	}