loncom/auth/migrateuser.pm - diff

Return to migrateuser.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.39, 2018/12/07 23:10:44	version 1.41, 2018/12/07 23:33:55
Line 127 sub canhost {	Line 127 sub canhost {
my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles','',['ca','aa'],\@possdoms);	my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles','',['ca','aa'],\@possdoms);
if (keys(%roleshash)) {	if (keys(%roleshash)) {
foreach my $key (keys(%roleshash)) {	foreach my $key (keys(%roleshash)) {
my $audom = (split(/:/,$key))[1];	my $audom = (split(/:/,$key))[1];
if ((&Apache::lonnet::will_trust('othcoau',$udom,$audom)) &&	if ((&Apache::lonnet::will_trust('othcoau',$udom,$audom)) &&
(&Apache::lonnet::will_trust('coaurem',$audom,$udom))) {	(&Apache::lonnet::will_trust('coaurem',$audom,$udom))) {
$canhost = 1;	$canhost = 1;
Line 626 sub handler {	Line 626 sub handler {
return &goto_login($r,$udom,\%data);	return &goto_login($r,$udom,\%data);
}	}
}	}

my $rolemsg;	my $rolemsg;
if ($data{'role'}) {	if ($data{'role'}) {
$rolemsg = "role: $data{'role'}";	$rolemsg = "role: $data{'role'}";