loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

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') {