[LON-CAPA-cvs] cvs: loncom /lti ltiauth.pm

[raeburn]

raeburn		Tue Mar 29 19:37:25 2022 EDT

  Modified files:              
    /loncom/lti	ltiauth.pm 
  Log:
  - Net::OAuth expects characters outside the ASCII character set to have been
    decoded to perl's internal character structure, as it will UTF-8 encode them
    itself when making a signature.
  
  
Index: loncom/lti/ltiauth.pm
diff -u loncom/lti/ltiauth.pm:1.34 loncom/lti/ltiauth.pm:1.35
--- loncom/lti/ltiauth.pm:1.34	Thu Feb 17 22:35:51 2022
+++ loncom/lti/ltiauth.pm	Tue Mar 29 19:37:25 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Basic LTI Authentication Module
 #
-# $Id: ltiauth.pm,v 1.34 2022/02/17 22:35:51 raeburn Exp $
+# $Id: ltiauth.pm,v 1.35 2022/03/29 19:37:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,6 +30,7 @@
 
 use strict;
 use LONCAPA qw(:DEFAULT :match);
+use Encode;
 use Apache::Constants qw(:common :http);
 use Apache::lonlocal;
 use Apache::lonnet;
@@ -63,7 +64,7 @@
     my $params = {};
     foreach my $key (sort(keys(%env))) {
         if ($key =~ /^form\.(.+)$/) {
-            $params->{$1} = $env{$key};
+            $params->{$1} = &Encode::decode('UTF-8',$env{$key});
         }
     }
 #