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.40, 2018/12/07 23:16:50
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;