--- loncom/lontrans.pm	2022/07/08 16:17:26	1.14.10.2.2.3
+++ loncom/lontrans.pm	2023/07/05 19:22:09	1.14.10.2.2.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # URL translation for User Files
 #
-# $Id: lontrans.pm,v 1.14.10.2.2.3 2022/07/08 16:17:26 raeburn Exp $
+# $Id: lontrans.pm,v 1.14.10.2.2.4 2023/07/05 19:22:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,8 +37,12 @@ use LONCAPA qw(:DEFAULT :match);
 
 sub handler {
     my $r = shift;
-    # FIXME line remove when mod_perl fixes BUG#4948 
+    # FIXME line remove when mod_perl fixes BUG#4948
     $r->notes->set('error-notes' => '');
+    if (($r->uri eq '/adm/service/passback') ||
+        ($r->uri eq '/adm/service/roster')) {
+        return OK;
+    }
     my $alias = &Apache::lonnet::get_proxy_alias();
     if ($alias) {
         my $hdrhost = $r->headers_in->get('Host');
@@ -214,7 +218,7 @@ 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') {
+                foreach my $item ('linkprotuser','linkprotexit','linkprotpbid','linkprotpburl') {
                     if ($link_info{$item} ne '') {
                         $info{$item} = $link_info{$item};
                     }