version 1.19, 2014/06/07 19:13:51
|
version 1.23, 2021/03/31 02:19:59
|
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 183 sub recurse_courses {
|
Line 183 sub recurse_courses {
|
my $creator = $courseinfo{'internal.creator'}; |
my $creator = $courseinfo{'internal.creator'}; |
my $creationcontext = $courseinfo{'internal.creationcontext'}; |
my $creationcontext = $courseinfo{'internal.creationcontext'}; |
my $inst_code = $courseinfo{'internal.coursecode'}; |
my $inst_code = $courseinfo{'internal.coursecode'}; |
|
my $xlists = $courseinfo{'internal.crosslistings'}; |
my $releaserequired = $courseinfo{'internal.releaserequired'}; |
my $releaserequired = $courseinfo{'internal.releaserequired'}; |
my $uniquecode = $courseinfo{'internal.uniquecode'}; |
my $uniquecode = $courseinfo{'internal.uniquecode'}; |
$inst_code = '' if (!defined($inst_code)); |
$inst_code = '' if (!defined($inst_code)); |
Line 224 sub recurse_courses {
|
Line 225 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 279 sub recurse_courses {
|
Line 282 sub recurse_courses {
|
my $cc = $1; |
my $cc = $1; |
unless ($cc eq $owner) { |
unless ($cc eq $owner) { |
my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$inst_code,$cc); |
my ($result,$desc) = &Apache::lonnet::auto_validate_instcode($cnum,$cdom,$inst_code,$cc); |
|
unless ($result eq 'valid') { |
|
if ($xlists ne '') { |
|
foreach my $xlist (split(',',$xlists)) { |
|
my ($inst_crosslist,$lcsec) = split(':',$xlist); |
|
$result = |
|
&Apache::lonnet::auto_validate_inst_crosslist($cnum,$cdom,$inst_code, |
|
$inst_crosslist,$cc); |
|
last if ($result eq 'valid'); |
|
} |
|
} |
|
} |
if ($result eq 'valid') { |
if ($result eq 'valid') { |
if (@newcoowners > 0) { |
if (@newcoowners > 0) { |
unless (grep(/^\Q$cc\E$/,@newcoowners)) { |
unless (grep(/^\Q$cc\E$/,@newcoowners)) { |
push(@newcoowners,$cc); |
push(@newcoowners,$cc); |
} |
} |
} else { |
} else { |
Line 333 sub recurse_courses {
|
Line 347 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; |
} |
} |
} |
} |