loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

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'}) {