[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.19 and 1.22

version 1.19, 2014/06/07 19:13:51 version 1.22, 2020/04/22 16:43:56
Line 122  sub recurse_courses { Line 122  sub recurse_courses {
         closedir(DIR);          closedir(DIR);
         $depth ++;          $depth ++;
         foreach my $item (@contents) {          foreach my $item (@contents) {
             if ($depth < 4) {              if (($depth < 4) && (length($item) == 1)) {
                 &recurse_courses($cdom,$dir.'/'.$item,$depth,$courseshash,                  &recurse_courses($cdom,$dir.'/'.$item,$depth,$courseshash,
                                  $currhash,$lastaccess,$autoassign,$fh);                                   $currhash,$lastaccess,$autoassign,$fh);
             } elsif ($item =~ /^$match_courseid$/) {              } elsif ($item =~ /^$match_courseid$/) {
Line 224  sub recurse_courses { Line 224  sub recurse_courses {
                 if (($chome ne '')  && ($lastaccess->{$cid} > $twodaysago)) {                  if (($chome ne '')  && ($lastaccess->{$cid} > $twodaysago)) {
                     $env{'request.course.id'} = $cdom.'_'.$cnum;                      $env{'request.course.id'} = $cdom.'_'.$cnum;
                     $env{'request.role'} = 'cc./'.$cdom.'/'.$cnum;                      $env{'request.role'} = 'cc./'.$cdom.'/'.$cnum;
                       $env{'request.role.adv'} = 1;
   
                     my $readmap = 1;                      my $readmap = 1;
                     ($reqdmajor,$reqdminor) = &Apache::lonrelrequtils::get_release_req($cnum,$cdom,                      ($reqdmajor,$reqdminor) = &Apache::lonrelrequtils::get_release_req($cnum,$cdom,
                                                                                        $crstype,$readmap,                                                                                         $crstype,$readmap,
                                                                                        $globals_set);                                                                                         $globals_set);
                       delete($env{'request.role.adv'});
                     delete($env{'request.course.id'});                      delete($env{'request.course.id'});
                     delete($env{'request.role'});                      delete($env{'request.role'});
                 } elsif ($releaserequired) {                  } elsif ($releaserequired) {
Line 333  sub recurse_courses { Line 335  sub recurse_courses {
                             $changes{'internal.releaserequired'} = $releasereq;                              $changes{'internal.releaserequired'} = $releasereq;
                         } else {                          } else {
                             if ($courseinfo{'internal.releaserequired'} ne $releasereq) {                              if ($courseinfo{'internal.releaserequired'} ne $releasereq) {
                           
                                 $changes{'internal.releaserequired'} = $releasereq;                                  $changes{'internal.releaserequired'} = $releasereq;
                             }                              }
                         }                          }
Removed from v.1.19  
changed lines
  Added in v.1.22

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