--- loncom/lti/ltiauth.pm	2021/08/04 19:59:11	1.20
+++ loncom/lti/ltiauth.pm	2021/11/22 03:19:05	1.25
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Basic LTI Authentication Module
 #
-# $Id: ltiauth.pm,v 1.20 2021/08/04 19:59:11 raeburn Exp $
+# $Id: ltiauth.pm,v 1.25 2021/11/22 03:19:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,7 +68,7 @@ sub handler {
         }
     }
 #
-# Check for existing session, and restored temporarily
+# Check for existing session, and restore temporarily
 # deleted form items to %env, if session exists.
 #
     if ($handle ne '') {
@@ -197,7 +197,7 @@ sub handler {
                                 delete($env{'form.'.$key});
                             }
                             my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail},
-                                                                 $lonhost);
+                                                                 $lonhost,'link');
                             if ($ltoken) {
                                 $r->internal_redirect($tail.'?ltoken='.$ltoken);
                                 $r->set_handlers('PerlHandler'=> undef);
@@ -854,7 +854,7 @@ sub lti_session {
             my $lowest_load;
             ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom);
             if ($lowest_load > 100) {
-                $otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$udom);
+                $otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$udom);
             }
         }
         if ($otherserver ne '') {
@@ -930,7 +930,7 @@ sub lti_session {
         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 @@ sub lti_session {
     } 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'}})) {
@@ -1036,7 +1036,7 @@ sub course_from_tinyurl {
     my ($tail) = @_;
     my ($urlcdom,$urlcnum);
     if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) {
-        my ($urlcdom,$key) = ($1,$2);
+        ($urlcdom,my $key) = ($1,$2);
         my $tinyurl;
         my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key);
         if (defined($cached)) {