loncom/interface/lonexttool.pm - diff

Return to lonexttool.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2017/12/30 00:16:29	version 1.14, 2017/12/30 14:03:53
Line 200 sub handler {	Line 200 sub handler {
$url .= $toolhash{'crsappend'};	$url .= $toolhash{'crsappend'};
}	}
$r->print(&launch_html($url,$toolhash{'key'},$toolhash{'secret'},	$r->print(&launch_html($url,$toolhash{'key'},$toolhash{'secret'},
$submittext,\%lti));	$toolhash{'sigmethod'},$submittext,\%lti));
} else {	} else {
$r->print('<div>'.&mt('External Tool Unavailable').'</div>');	$r->print('<div>'.&mt('External Tool Unavailable').'</div>');
}	}
Line 412 sub lti_params {	Line 412 sub lti_params {
}	}

sub launch_html {	sub launch_html {
my ($url,$key,$secret,$submittext,$paramsref) = @_;	my ($url,$key,$secret,$sigmethod,$submittext,$paramsref) = @_;
my $hashref = &LONCAPA::ltiutils::sign_params($url,$key,$secret,$paramsref);	my $hashref = &LONCAPA::ltiutils::sign_params($url,$key,$secret,$sigmethod,$paramsref);
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">