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

Diff for /loncom/metadata_database/searchcat.pl between versions 1.84 and 1.85

version 1.84, 2016/01/31 21:25:49 version 1.85, 2016/06/19 04:28:08
Line 208  foreach my $dom (@domains) { Line 208  foreach my $dom (@domains) {
     closedir RESOURCES;      closedir RESOURCES;
     &log(5,'users = '.$dom.':'.join(',',@homeusers));      &log(5,'users = '.$dom.':'.join(',',@homeusers));
     #      #
       my %courses;
     if ($oneuser) {      if ($oneuser) {
           %courses = &courseiddump($dom,'.',1,'.','.',$oneuser,undef,
                                    undef,'.');
         @homeusers=($oneuser);          @homeusers=($oneuser);
       } else {
           # get courseIDs for domain on current machine
           %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.');
     }      }
   
     #      #
     # Loop through the users      # Loop through the users
     foreach my $user (@homeusers) {      foreach my $user (@homeusers) {
           next if (exists($courses{$dom.'_'.$user}));
         &log(0,"=== User: ".$user);          &log(0,"=== User: ".$user);
         &process_dynamic_metadata($user,$dom);          &process_dynamic_metadata($user,$dom);
         #          #
Line 228  foreach my $dom (@domains) { Line 235  foreach my $dom (@domains) {
              }, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) );               }, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) );
     }      }
     # Search for all users and public portfolio files      # Search for all users and public portfolio files
     my (%allusers,%portusers,%courses);      my (%allusers,%portusers);
     if ($oneuser) {      if ($oneuser) {
         %portusers = (          %portusers = (
                         $oneuser => '',                          $oneuser => '',
Line 236  foreach my $dom (@domains) { Line 243  foreach my $dom (@domains) {
         %allusers = (          %allusers = (
                         $oneuser => '',                          $oneuser => '',
                        );                         );
         %courses = &courseiddump($dom,'.',1,'.','.',$oneuser,undef,  
                                  undef,'.');  
     } else {      } else {
         # get courseIDs for domain on current machine  
         %courses=&Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,[$hostid],'.');  
         my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;          my $dir = $Apache::lonnet::perlvar{lonUsersDir}.'/'.$dom;
         &descend_tree($dom,$dir,0,\%portusers,\%allusers);          &descend_tree($dom,$dir,0,\%portusers,\%allusers);
     }      }
Removed from v.1.84  
changed lines
  Added in v.1.85

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