version 1.21, 2021/05/04 18:47:36
|
version 1.22, 2021/08/07 01:32:12
|
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"> |