version 1.38, 2021/12/06 03:31:54
|
version 1.39, 2022/06/18 02:10:19
|
Line 276 sub set_token {
|
Line 276 sub set_token {
|
my %link_info = &Apache::lonnet::tmpget($info{'ltoken'}); |
my %link_info = &Apache::lonnet::tmpget($info{'ltoken'}); |
if ($link_info{'linkprot'}) { |
if ($link_info{'linkprot'}) { |
$info{'linkprot'} = $link_info{'linkprot'}; |
$info{'linkprot'} = $link_info{'linkprot'}; |
|
if ($link_info{'linkprotuser'} ne '') { |
|
$info{'linkprotuser'} = $link_info{'linkprotuser'}; |
|
} |
} |
} |
&Apache::lonnet::tmpdel($info{'ltoken'});; |
&Apache::lonnet::tmpdel($info{'ltoken'}); |
delete($info{'ltoken'}); |
delete($info{'ltoken'}); |
} |
} |
unless ($info{'role'}) { |
unless ($info{'role'}) { |