loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

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