loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

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