loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25.2.5.2.7, 2022/08/30 15:32:51	version 1.25.2.5.2.8, 2023/01/23 00:59:22
Line 203 sub ip_changed {	Line 203 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 565 sub handler {	Line 573 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'});
	}
	}
	}
}	}
&Apache::lonauth::success($r,$data{'username'},$data{'domain'},	&Apache::lonauth::success($r,$data{'username'},$data{'domain'},
$home,$desturl,$extra_env,\%form,'',	$home,$desturl,$extra_env,\%form,'',