--- loncom/lontrans.pm	2021/12/06 03:31:54	1.38
+++ loncom/lontrans.pm	2023/06/02 01:20:28	1.41
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # URL translation for User Files
 #
-# $Id: lontrans.pm,v 1.38 2021/12/06 03:31:54 raeburn Exp $
+# $Id: lontrans.pm,v 1.41 2023/06/02 01:20:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,10 @@ sub handler {
     # FIXME line remove when mod_perl fixes BUG#4948
     $r->notes->set('error-notes' => '');
     my $hdrhost = $r->headers_in->get('Host');
+    if (($r->uri eq '/adm/service/passback') ||
+        ($r->uri eq '/adm/service/roster')) {
+        return OK;
+    }
     if ($r->uri=~m{^/raw/}) {
         if ($hdrhost) {
             unless ($hdrhost =~ /^internal\-/) {
@@ -276,8 +280,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','linkprotpbid','linkprotpburl') {
+                    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'}) {