version 1.38, 2021/12/06 03:31:54
|
version 1.40, 2022/06/30 21:04:15
|
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'}; |
|
foreach my $item ('linkprotuser','linkprotexit') { |
|
if ($link_info{$item} ne '') { |
|
$info{$item} = $link_info{$item}; |
|
} |
|
} |
} |
} |
&Apache::lonnet::tmpdel($info{'ltoken'});; |
&Apache::lonnet::tmpdel($info{'ltoken'}); |
delete($info{'ltoken'}); |
delete($info{'ltoken'}); |
} |
} |
unless ($info{'role'}) { |
unless ($info{'role'}) { |