version 1.39, 2022/06/18 02:10:19
|
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'}; |
if ($link_info{'linkprotuser'} ne '') { |
foreach my $item ('linkprotuser','linkprotexit') { |
$info{'linkprotuser'} = $link_info{'linkprotuser'}; |
if ($link_info{$item} ne '') { |
|
$info{$item} = $link_info{$item}; |
|
} |
} |
} |
} |
} |
&Apache::lonnet::tmpdel($info{'ltoken'}); |
&Apache::lonnet::tmpdel($info{'ltoken'}); |