--- loncom/lontrans.pm 2022/06/30 21:04:15 1.40 +++ 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.40 2022/06/30 21:04:15 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,7 +280,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}; }