loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.65, 2022/08/24 20:58:50	version 1.66, 2022/09/17 23:38:50
Line 295 sub ip_changed {	Line 295 sub ip_changed {
$info{$name} = $dataref->{$name};	$info{$name} = $dataref->{$name};
}	}
}	}
	if ($info{'origurl'} eq '/adm/email') {
	if (($dataref->{'display'}) && ($dataref->{'mailrecip'})) {
	if (&unescape($dataref->{'mailrecip'}) eq $dataref->{'username'}.':'.$dataref->{'domain'}) {
	$info{'display'} = $dataref->{'display'};
	$info{'mailrecip'} = $dataref->{'mailrecip'};
	}
	}
	}
my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto,'link');	my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto,'link');
unless ($iptoken eq 'conlost') {	unless ($iptoken eq 'conlost') {
$url .= (($url =~ /\?/) ? '&' : '?') . 'iptoken='.$iptoken;	$url .= (($url =~ /\?/) ? '&' : '?') . 'iptoken='.$iptoken;
Line 996 sub handler {	Line 1004 sub handler {
$extra_env = {'request.deeplink.login' => $data{'deeplink.login'}};	$extra_env = {'request.deeplink.login' => $data{'deeplink.login'}};
}	}
}	}
	if ($desturl eq '/adm/email') {
	if (($data{'display'}) && ($data{'mailrecip'})) {
	if (&unescape($data{'mailrecip'}) eq "$data{'username'}:$data{'domain'}") {
	$form{'display'} = &unescape($data{'display'});
	}
	}
	}
}	}
my $skipcritical;	my $skipcritical;
if ($data{'lti.login'}) {	if ($data{'lti.login'}) {