version 1.84, 2016/01/31 21:25:49
|
version 1.85, 2016/06/19 04:28:08
|
Line 208 foreach my $dom (@domains) {
|
Line 208 foreach my $dom (@domains) {
|
closedir RESOURCES; |
closedir RESOURCES; |
&log(5,'users = '.$dom.':'.join(',',@homeusers)); |
&log(5,'users = '.$dom.':'.join(',',@homeusers)); |
# |
# |
|
my %courses; |
if ($oneuser) { |
if ($oneuser) { |
|
%courses = &courseiddump($dom,'.',1,'.','.',$oneuser,undef, |
|
undef,'.'); |
@homeusers=($oneuser); |
@homeusers=($oneuser); |
|
} else { |
|
# get courseIDs for domain on current machine |
|
%courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.'); |
} |
} |
|
|
# |
# |
# Loop through the users |
# Loop through the users |
foreach my $user (@homeusers) { |
foreach my $user (@homeusers) { |
|
next if (exists($courses{$dom.'_'.$user})); |
&log(0,"=== User: ".$user); |
&log(0,"=== User: ".$user); |
&process_dynamic_metadata($user,$dom); |
&process_dynamic_metadata($user,$dom); |
# |
# |
Line 228 foreach my $dom (@domains) {
|
Line 235 foreach my $dom (@domains) {
|
}, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) ); |
}, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) ); |
} |
} |
# Search for all users and public portfolio files |
# Search for all users and public portfolio files |
my (%allusers,%portusers,%courses); |
my (%allusers,%portusers); |
if ($oneuser) { |
if ($oneuser) { |
%portusers = ( |
%portusers = ( |
$oneuser => '', |
$oneuser => '', |
Line 236 foreach my $dom (@domains) {
|
Line 243 foreach my $dom (@domains) {
|
%allusers = ( |
%allusers = ( |
$oneuser => '', |
$oneuser => '', |
); |
); |
%courses = &courseiddump($dom,'.',1,'.','.',$oneuser,undef, |
|
undef,'.'); |
|
} else { |
} else { |
# get courseIDs for domain on current machine |
|
%courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.'); |
|
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
&descend_tree($dom,$dir,0,\%portusers,\%allusers); |
&descend_tree($dom,$dir,0,\%portusers,\%allusers); |
} |
} |