loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.16, 2010/03/21 21:06:00	version 1.18, 2010/03/25 04:36:02
Line 61	Line 61
}	}
next if (!$run_update);	next if (!$run_update);
open(my $fh,">>$logfile");	open(my $fh,">>$logfile");
print $fh ("********************\n".localtime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n");	print $fh ("********************\n".&Apache::lonlocal::locallocaltime(time).' '.&mt('Autoupdate messages start for domain: [_1]',$dom).' --'."\n");
# 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
Line 73	Line 73
my @cdoms = ($dom);	my @cdoms = ($dom);
my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;	my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
&descend_tree($dir,0,\%users);	&descend_tree($dir,0,\%users);
foreach my $uname (keys(%users)) {	foreach my $uname (sort(keys(%users))) {
next if ($courses{$dom.'_'.$uname});	next if ($courses{$dom.'_'.$uname});
my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info);	my %userhash = &Apache::lonnet::userenvironment($dom,$uname,@info);
my (@inststatuses);	my (@inststatuses);