version 1.14.10.2.2.2, 2022/01/05 00:51:20
|
version 1.14.10.2.2.3, 2022/07/08 16:17:26
|
Line 214 sub set_token {
|
Line 214 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'}) { |