version 1.14.10.2.2.1, 2022/01/02 20:43:50
|
version 1.14.10.2.2.3, 2022/07/08 16:17:26
|
Line 30 package Apache::lontrans;
|
Line 30 package Apache::lontrans;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :remotehost); |
use Apache::Constants qw(:common :remotehost); |
use Apache::lonnet(); |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::File(); |
use Apache::File(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
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'}) { |