--- loncom/misc/refresh_courseids_db.pl 2014/06/07 19:13:51 1.19 +++ loncom/misc/refresh_courseids_db.pl 2020/04/22 16:43:56 1.22 @@ -1,7 +1,7 @@ #!/usr/bin/perl # The LearningOnline Network # -# $Id: refresh_courseids_db.pl,v 1.19 2014/06/07 19:13:51 raeburn Exp $ +# $Id: refresh_courseids_db.pl,v 1.22 2020/04/22 16:43:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -122,7 +122,7 @@ sub recurse_courses { closedir(DIR); $depth ++; foreach my $item (@contents) { - if ($depth < 4) { + if (($depth < 4) && (length($item) == 1)) { &recurse_courses($cdom,$dir.'/'.$item,$depth,$courseshash, $currhash,$lastaccess,$autoassign,$fh); } elsif ($item =~ /^$match_courseid$/) { @@ -224,11 +224,13 @@ sub recurse_courses { if (($chome ne '') && ($lastaccess->{$cid} > $twodaysago)) { $env{'request.course.id'} = $cdom.'_'.$cnum; $env{'request.role'} = 'cc./'.$cdom.'/'.$cnum; + $env{'request.role.adv'} = 1; my $readmap = 1; ($reqdmajor,$reqdminor) = &Apache::lonrelrequtils::get_release_req($cnum,$cdom, $crstype,$readmap, $globals_set); + delete($env{'request.role.adv'}); delete($env{'request.course.id'}); delete($env{'request.role'}); } elsif ($releaserequired) { @@ -333,7 +335,6 @@ sub recurse_courses { $changes{'internal.releaserequired'} = $releasereq; } else { if ($courseinfo{'internal.releaserequired'} ne $releasereq) { - $changes{'internal.releaserequired'} = $releasereq; } }