version 1.21, 2011/10/14 18:14:31
|
version 1.23, 2016/01/27 22:23:18
|
Line 68
|
Line 68
|
my (%users,%instusers,%instids); |
my (%users,%instusers,%instids); |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
&descend_tree($dom,$dir,0,\%users,\%courses); |
&descend_tree($dom,$dir,0,\%users,\%courses); |
next if (&localenroll::allusers_info($dom,\%instusers,\%instids,\%users) ne 'ok'); |
my $resp = &localenroll::allusers_info($dom,\%instusers,\%instids,\%users); |
|
if ($resp ne 'ok') { |
|
print $fh &mt('Problem retrieving institutional data for users in domain: [_1].',$dom)."\n". |
|
&mt('Error: [_1].',$resp)."\n". |
|
"-- \n".&Apache::lonlocal::locallocaltime(time).' '. |
|
&mt('Autoupdate messages end')."\n*******************\n\n"; |
|
next; |
|
} |
my (%unamechg,%possnames); |
my (%unamechg,%possnames); |
my @types = ('active','future'); |
my @types = ('active','future'); |
my @roles = ('st'); |
my @roles = ('st'); |
Line 191 sub descend_tree {
|
Line 198 sub descend_tree {
|
closedir(DIR); |
closedir(DIR); |
$depth ++; |
$depth ++; |
foreach my $item (@contents) { |
foreach my $item (@contents) { |
if ($depth < 4) { |
if (($depth < 4) && (length($item) == 1)) { |
&descend_tree($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref); |
&descend_tree($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref); |
} elsif (-e $dir.'/'.$item.'/passwd') { |
} elsif (-e $dir.'/'.$item.'/passwd') { |
if (ref($coursesref) eq 'HASH') { |
if (ref($coursesref) eq 'HASH') { |