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

Diff for /loncom/enrollment/Autoupdate.pl between versions 1.24 and 1.25

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');
Removed from v.1.24  
changed lines
  Added in v.1.25

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