version 1.1444, 2021/03/31 02:19:59
|
version 1.1446, 2021/04/09 02:01:11
|
Line 9441 sub auto_validate_inst_crosslist {
|
Line 9441 sub auto_validate_inst_crosslist {
|
unless (($homeserver eq '') || ($homeserver eq 'no_host')) { |
unless (($homeserver eq '') || ($homeserver eq 'no_host')) { |
$response=&reply('autovalidateinstcrosslist:'.$cdom.':'. |
$response=&reply('autovalidateinstcrosslist:'.$cdom.':'. |
&escape($instcode).':'.&escape($inst_xlist).':'. |
&escape($instcode).':'.&escape($inst_xlist).':'. |
&escape($coowner),$homeserver))); |
&escape($coowner),$homeserver); |
} |
} |
return $response; |
return $response; |
} |
} |
Line 10278 sub autoupdate_coowners {
|
Line 10278 sub autoupdate_coowners {
|
foreach my $xlist (split(',',$xlists)) { |
foreach my $xlist (split(',',$xlists)) { |
my ($inst_crosslist,$lcsec) = split(':',$xlist); |
my ($inst_crosslist,$lcsec) = split(':',$xlist); |
$result = |
$result = |
&Apache::lonnet::auto_validate_inst_crosslist($cnum,$cdom,$instcode, |
&auto_validate_inst_crosslist($cnum,$cdom,$instcode, |
$inst_crosslist,$uname.':'.$udom); |
$inst_crosslist,$uname.':'.$udom); |
last if ($result eq 'valid'); |
last if ($result eq 'valid'); |
} |
|
} |
} |
} |
} |
} |
} |