loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.34, 2022/02/17 22:35:51	version 1.35, 2022/03/29 19:37:25
Line 30 package Apache::ltiauth;	Line 30 package Apache::ltiauth;

use strict;	use strict;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
	use Encode;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
Line 63 sub handler {	Line 64 sub handler {
my $params = {};	my $params = {};
foreach my $key (sort(keys(%env))) {	foreach my $key (sort(keys(%env))) {
if ($key =~ /^form\.(.+)$/) {	if ($key =~ /^form\.(.+)$/) {
$params->{$1} = $env{$key};	$params->{$1} = &Encode::decode('UTF-8',$env{$key});
}	}
}	}
#	#