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

Diff for /loncom/misc/refresh_courseids_db.pl between versions 1.23 and 1.24

version 1.23, 2021/03/31 02:19:59 version 1.24, 2023/10/02 21:01:21
Line 351  sub recurse_courses { Line 351  sub recurse_courses {
                             }                              }
                         }                          }
                     }                      }
                       my $curruserdoms = $courseinfo{'internal.userdomains'};
                       my $updateduserdoms = &get_unique_domains($cdom,$cnum);
                       if ($curruserdoms ne $updateduserdoms) {
                           $changes{'internal.userdomains'} = $updateduserdoms;
                       }
                     if (keys(%changes)) {                      if (keys(%changes)) {
                         if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {                          if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {
                             print $fh "Course's environment.db for ".$cdom."_".$cnum." successfully updated with following entries: ";                              print $fh "Course's environment.db for ".$cdom."_".$cnum." successfully updated with following entries: ";
Line 387  sub last_map_update { Line 392  sub last_map_update {
     return $lastupdate;      return $lastupdate;
 }  }
   
   sub get_unique_domains {
       my ($cdom,$cnum) = @_;
       my %classlist = &Apache::lonnet::dump('classlist',$cdom,$cnum);
       my (%uniquedom,$udomstr);
       foreach my $key (keys(%classlist)) {
           my $udom = (split(/:/,$key))[1];
           $uniquedom{$udom} = 1;
       }
       my %dumphash =
           &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
       foreach my $entry (keys(%dumphash)) {
           my $udom = (split(/\:/,$entry))[2];
           $uniquedom{$udom} = 1;
       }
       foreach my $udom (keys(%uniquedom)) {
           if (&Apache::lonnet::domain($udom) eq '') {
               delete($uniquedom{$udom});
           }
       }
       if (keys(%uniquedom) > 0) {
           $udomstr = join(',',sort(keys(%uniquedom)));
       }
       return $udomstr;
   }
   
Removed from v.1.23  
changed lines
  Added in v.1.24

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