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

[raeburn]

raeburn		Mon Nov 22 03:19:05 2021 EDT

  Modified files:              
    /loncom/lti	ltiauth.pm 
  Log:
  - Add missing keys() command. 
  
  
Index: loncom/lti/ltiauth.pm
diff -u loncom/lti/ltiauth.pm:1.24 loncom/lti/ltiauth.pm:1.25
--- loncom/lti/ltiauth.pm:1.24	Wed Nov  3 01:04:04 2021
+++ loncom/lti/ltiauth.pm	Mon Nov 22 03:19:05 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Basic LTI Authentication Module
 #
-# $Id: ltiauth.pm,v 1.24 2021/11/03 01:04:04 raeburn Exp $
+# $Id: ltiauth.pm,v 1.25 2021/11/22 03:19:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -930,7 +930,7 @@
         if ($params->{'launch_presentation_document_target'}) {
             $env{'request.lti.target'} = $params->{'launch_presentation_document_target'};
         }
-        foreach my $key (%{$params}) {
+        foreach my $key (keys(%{$params})) {
             delete($env{'form.'.$key});
         }
         my $redirecturl = '/adm/switchserver';
@@ -942,7 +942,7 @@
     } else {
         # need to login them in, so generate the need data that
         # migrate expects to do login
-        foreach my $key (%{$params}) {
+        foreach my $key (keys(%{$params})) {
             delete($env{'form.'.$key});
         }
         if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) {