loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

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