version 1.23, 2021/03/31 02:19:59
|
version 1.24, 2023/10/02 21:01:21
|
Line 351 sub recurse_courses {
|
Line 351 sub recurse_courses {
|
} |
} |
} |
} |
} |
} |
|
my $curruserdoms = $courseinfo{'internal.userdomains'}; |
|
my $updateduserdoms = &get_unique_domains($cdom,$cnum); |
|
if ($curruserdoms ne $updateduserdoms) { |
|
$changes{'internal.userdomains'} = $updateduserdoms; |
|
} |
if (keys(%changes)) { |
if (keys(%changes)) { |
if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') { |
if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') { |
print $fh "Course's environment.db for ".$cdom."_".$cnum." successfully updated with following entries: "; |
print $fh "Course's environment.db for ".$cdom."_".$cnum." successfully updated with following entries: "; |
Line 387 sub last_map_update {
|
Line 392 sub last_map_update {
|
return $lastupdate; |
return $lastupdate; |
} |
} |
|
|
|
sub get_unique_domains { |
|
my ($cdom,$cnum) = @_; |
|
my %classlist = &Apache::lonnet::dump('classlist',$cdom,$cnum); |
|
my (%uniquedom,$udomstr); |
|
foreach my $key (keys(%classlist)) { |
|
my $udom = (split(/:/,$key))[1]; |
|
$uniquedom{$udom} = 1; |
|
} |
|
my %dumphash = |
|
&Apache::lonnet::dump('nohist_userroles',$cdom,$cnum); |
|
foreach my $entry (keys(%dumphash)) { |
|
my $udom = (split(/\:/,$entry))[2]; |
|
$uniquedom{$udom} = 1; |
|
} |
|
foreach my $udom (keys(%uniquedom)) { |
|
if (&Apache::lonnet::domain($udom) eq '') { |
|
delete($uniquedom{$udom}); |
|
} |
|
} |
|
if (keys(%uniquedom) > 0) { |
|
$udomstr = join(',',sort(keys(%uniquedom))); |
|
} |
|
return $udomstr; |
|
} |
|
|