--- loncom/lontrans.pm	2022/01/05 00:51:20	1.14.10.2.2.2
+++ loncom/lontrans.pm	2022/07/08 16:17:26	1.14.10.2.2.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # URL translation for User Files
 #
-# $Id: lontrans.pm,v 1.14.10.2.2.2 2022/01/05 00:51:20 raeburn Exp $
+# $Id: lontrans.pm,v 1.14.10.2.2.3 2022/07/08 16:17:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -214,8 +214,13 @@ sub set_token {
             my %link_info = &Apache::lonnet::tmpget($info{'ltoken'});
             if ($link_info{'linkprot'}) {
                 $info{'linkprot'} = $link_info{'linkprot'};
+                foreach my $item ('linkprotuser','linkprotexit') {
+                    if ($link_info{$item} ne '') {
+                        $info{$item} = $link_info{$item};
+                    }
+                }
             }
-            &Apache::lonnet::tmpdel($info{'ltoken'});;
+            &Apache::lonnet::tmpdel($info{'ltoken'});
             delete($info{'ltoken'});
         }
         unless ($info{'role'}) {