[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.22

version 1.19, 2010/03/26 13:19:04 version 1.22, 2011/12/18 01:23:21
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($dom,$dir,0,\%users,\%courses);
           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 @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 191
     }      }
   
 sub descend_tree {  sub descend_tree {
     my ($dir,$depth,$alldomusers) = @_;      my ($dom,$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 199  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($dom,$dir.'/'.$item,$depth,$alldomusers,$coursesref);
             } elsif (-e $dir.'/'.$item.'/passwd') {              } elsif (-e $dir.'/'.$item.'/passwd') {
                   if (ref($coursesref) eq 'HASH') {
                       next if (exists($coursesref->{$dom.'_'.$item}));
                   }
                 $$alldomusers{$item} = '';                  $$alldomusers{$item} = '';
             }              }
         }          }
Removed from v.1.19  
changed lines
  Added in v.1.22

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