loncom/interface/lonexttool.pm - diff

Return to lonexttool.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.20, 2018/08/14 18:20:17	version 1.22, 2021/08/07 01:32:12
Line 312 sub lti_params {	Line 312 sub lti_params {
my $domdesc = &Apache::lonnet::domain($cdom);	my $domdesc = &Apache::lonnet::domain($cdom);
my $primary_id = &Apache::lonnet::domain($cdom,'primary');	my $primary_id = &Apache::lonnet::domain($cdom,'primary');
my $int_dom = &Apache::lonnet::internet_dom($primary_id);	my $int_dom = &Apache::lonnet::internet_dom($primary_id);
my $portal_url = &Apache::lonnet::course_portal_url($cnum,$cdom);	my $portal_url = &Apache::lonnet::course_portal_url($cnum,$cdom,$r);

my %ltiparams = (	my %ltiparams = (
lti_version => $version,	lti_version => $version,
Line 435 sub lti_params {	Line 435 sub lti_params {

sub launch_html {	sub launch_html {
my ($url,$key,$secret,$sigmethod,$submittext,$paramsref) = @_;	my ($url,$key,$secret,$sigmethod,$submittext,$paramsref) = @_;
my $hashref = &LONCAPA::ltiutils::sign_params($url,$key,$secret,$sigmethod,$paramsref);	my $hashref = &LONCAPA::ltiutils::sign_params($url,$key,$secret,$paramsref,$sigmethod);
my $action = &HTML::Entities::encode($url,'<>&"');	my $action = &HTML::Entities::encode($url,'<>&"');
my $form = <<"END";	my $form = <<"END";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">