loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.52, 2021/08/16 15:25:44	version 1.53, 2021/10/26 14:20:40
Line 732 sub handler {	Line 732 sub handler {
} else {	} else {
&Apache::lonnet::appenv({'user.linkproturi' => $deeplink});	&Apache::lonnet::appenv({'user.linkproturi' => $deeplink});
}	}
} elsif ($data{'linkkey'}) {	} elsif ($data{'linkkey'} ne '') {
&Apache::lonnet::appenv({'request.linkkey' => $data{'linkkey'}});	&Apache::lonnet::appenv({'request.linkkey' => $data{'linkkey'}});
my $deeplink = $data{'deeplink.login'};	my $deeplink = $data{'deeplink.login'};
my $linkkey = $data{'linkkey'};	my $linkkey = $data{'linkkey'};
if ($env{'user.deeplinkkey'}) {	if ($env{'user.deeplinkkey'} ne '') {
my @linkkeys = split(/,/,$env{'user.deeplinkkey'});	my @linkkeys = split(/,/,$env{'user.deeplinkkey'});
unless (grep(/^\Q$linkkey\E$/,@linkkeys)) {	unless (grep(/^\Q$linkkey\E$/,@linkkeys)) {
push(@linkkeys,$linkkey);	push(@linkkeys,$linkkey);
Line 876 sub handler {	Line 876 sub handler {
'request.linkprot' => $data{'linkprot'}};	'request.linkprot' => $data{'linkprot'}};
}	}
}	}
} elsif ($data{'linkkey'}) {	} elsif ($data{'linkkey'} ne '') {
if (ref($extra_env) eq 'HASH') {	if (ref($extra_env) eq 'HASH') {
$extra_env->{'user.deeplinkkey'} = $data{'linkkey'};	$extra_env->{'user.deeplinkkey'} = $data{'linkkey'};
$extra_env->{'user.keyedlinkuri'} = $data{'deeplink.login'};	$extra_env->{'user.keyedlinkuri'} = $data{'deeplink.login'};