[BACK]Return to Autoupdate.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / enrollment

Diff for /loncom/enrollment/Autoupdate.pl between versions 1.19 and 1.20

version 1.19, 2010/03/26 13:19:04 version 1.20, 2011/10/14 17:13:25
Line 65 Line 65
         # 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 (%instusers,%instids);          my (%users,%instusers,%instids);
         next if (&localenroll::allusers_info($dom,\%instusers,\%instids) ne 'ok');          my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
         my (%users,%unamechg,%possnames);          &descend_tree($dir,0,\%users,\%courses);
           next if (&localenroll::allusers_info($dom,\%instusers,\%instids,\%users) ne 'ok');
           my (%unamechg,%possnames);
         my @types = ('active','future');          my @types = ('active','future');
         my @roles = ('st');          my @roles = ('st');
         my @cdoms = ($dom);          my @cdoms = ($dom);
         my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;  
         &descend_tree($dir,0,\%users);  
         foreach my $uname (sort(keys(%users))) {          foreach my $uname (sort(keys(%users))) {
             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);
             if (!$userhash{'internalname'}) {              if (!$userhash{'internalname'}) {
Line 185 Line 184
     }      }
   
 sub descend_tree {  sub descend_tree {
     my ($dir,$depth,$alldomusers) = @_;      my ($dir,$depth,$alldomusers,$coursesref) = @_;
     if (-d $dir) {      if (-d $dir) {
         opendir(DIR,$dir);          opendir(DIR,$dir);
         my @contents = grep(!/^\./,readdir(DIR));          my @contents = grep(!/^\./,readdir(DIR));
Line 193  sub descend_tree { Line 192  sub descend_tree {
         $depth ++;          $depth ++;
         foreach my $item (@contents) {          foreach my $item (@contents) {
             if ($depth < 4) {              if ($depth < 4) {
                 &descend_tree($dir.'/'.$item,$depth,$alldomusers);                  &descend_tree($dir.'/'.$item,$depth,$alldomusers,$coursesref);
             } elsif (-e $dir.'/'.$item.'/passwd') {              } elsif (-e $dir.'/'.$item.'/passwd') {
                   if (ref($coursesref) eq 'HASH') {
                       next if (exists($coursesref->{$item}));
                   }
                 $$alldomusers{$item} = '';                  $$alldomusers{$item} = '';
             }              }
         }          }
Removed from v.1.19  
changed lines
  Added in v.1.20

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>