loncom/interface/lonexttool.pm - diff

Return to lonexttool.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2017/12/07 15:36:34	version 1.10, 2017/12/07 16:06:04
Line 275 sub lti_params {	Line 275 sub lti_params {
$ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};	$ltiparams{'ext_ims_lis_basic_outcome_url'} = $ltiparams{'lis_outcome_service_url'};
if ($gradesecret) {	if ($gradesecret) {
my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};	my $uniqid = $digest_symb.':::'.$digest_user.':::'.$env{'request.course.id'};
$ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_unique_callback($gradesecret,$uniqid);	$ltiparams{'lis_result_sourcedid'} = &LONCAPA::ltiutils::get_service_id($gradesecret,$uniqid);
}	}
}	}
if ($roster) {	if ($roster) {
Line 283 sub lti_params {	Line 283 sub lti_params {
$ltiparams{'ext_ims_lis_memberships_url'} = $crsprotocol.'://'.$crshostname.'/adm/service/roster';	$ltiparams{'ext_ims_lis_memberships_url'} = $crsprotocol.'://'.$crshostname.'/adm/service/roster';
if ($rostersecret) {	if ($rostersecret) {
my $uniqid = $digest_symb.':::'.$env{'request.course.id'};	my $uniqid = $digest_symb.':::'.$env{'request.course.id'};
$ltiparams{'ext_ims_lis_memberships_id'} = &LONCAPA::ltiutils::get_unique_callback($rostersecret,$uniqid);	$ltiparams{'ext_ims_lis_memberships_id'} = &LONCAPA::ltiutils::get_service_id($rostersecret,$uniqid);
}	}
}	}
}	}