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; |