version 1.24, 2021/09/01 02:14:42
|
version 1.25, 2022/01/14 16:27:20
|
Line 74
|
Line 74
|
# get courseIDs for domain |
# get courseIDs for domain |
my %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.'); |
my %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.'); |
# get user information |
# get user information |
my (%users,%instusers,%instids); |
my (%users,%instusers,%instids,%counts); |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom; |
&descend_tree($dom,$dir,0,\%users,\%courses,$allowed_inactivity,$check_unexpired); |
&descend_tree($dom,$dir,0,\%users,\%courses,$allowed_inactivity,$check_unexpired); |
my $resp = &localenroll::allusers_info($dom,\%instusers,\%instids,\%users); |
my $resp = &localenroll::allusers_info($dom,\%instusers,\%instids,\%users,\%counts); |
if ($resp ne 'ok') { |
if ($resp ne 'ok') { |
print $fh &mt('Problem retrieving institutional data for users in domain: [_1].',$dom)."\n". |
print $fh &mt('Problem retrieving institutional data for users in domain: [_1].',$dom)."\n". |
&mt('Error: [_1].',$resp)."\n". |
&mt('Error: [_1].',$resp)."\n". |
"-- \n".&Apache::lonlocal::locallocaltime(time).' '. |
"-- \n".&Apache::lonlocal::locallocaltime(time).' '. |
&mt('Autoupdate messages end')."\n*******************\n\n"; |
&mt('Autoupdate messages end')."\n*******************\n\n"; |
|
close($fh); |
next; |
next; |
|
} else { |
|
if (keys(%counts)) { |
|
foreach my $key (sort(keys(%counts))) { |
|
if ($counts{$key} ne '') { |
|
print $fh "Count for $key = $counts{$key}\n"; |
|
} |
|
} |
|
} |
} |
} |
my (%unamechg,%possnames); |
my (%unamechg,%possnames); |
my @types = ('active','future'); |
my @types = ('active','future'); |