[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /lti ltiauth.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2022-03-29 19:37:25
Message-ID: cvsraeburn1648582645 () cvsserver
[Download RAW message or body]
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});
}
}
#
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic