--- loncom/lontrans.pm 2022/06/18 02:10:19 1.39 +++ loncom/lontrans.pm 2022/06/30 21:04:15 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network # URL translation for User Files # -# $Id: lontrans.pm,v 1.39 2022/06/18 02:10:19 raeburn Exp $ +# $Id: lontrans.pm,v 1.40 2022/06/30 21:04:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -276,8 +276,10 @@ sub set_token { my %link_info = &Apache::lonnet::tmpget($info{'ltoken'}); if ($link_info{'linkprot'}) { $info{'linkprot'} = $link_info{'linkprot'}; - if ($link_info{'linkprotuser'} ne '') { - $info{'linkprotuser'} = $link_info{'linkprotuser'}; + foreach my $item ('linkprotuser','linkprotexit') { + if ($link_info{$item} ne '') { + $info{$item} = $link_info{$item}; + } } } &Apache::lonnet::tmpdel($info{'ltoken'});