version 1.5, 2010/07/29 17:44:45
|
version 1.6, 2010/07/30 17:46:12
|
Line 304 sub recurse_courses {
|
Line 304 sub recurse_courses {
|
$courseinfo{'internal.'.$item}; |
$courseinfo{'internal.'.$item}; |
} |
} |
} |
} |
if ($reqdmajor ne '' && $reqdminor ne '') { |
if ($reqdmajor eq '' && $reqdminor eq '') { |
$courseshash->{$chome}{$cid}{'releaserequired'} = $reqdmajor.'.'.$reqdminor; |
if ($courseinfo{'internal.releaserequired'} ne '') { |
} |
$changes{'internal.releaserequired'} = ''; |
if ($courseinfo{'internal.releaserequired'} ne $reqdmajor.'.'.$reqdminor) { |
} |
$changes{'internal.releaserequired'} = $reqdmajor.'.'.$reqdminor; |
} else { |
|
my $releasereq = $reqdmajor.'.'.$reqdminor; |
|
$courseshash->{$chome}{$cid}{'releaserequired'} = $releasereq; |
|
if ($courseinfo{'internal.releaserequired'} eq '') { |
|
$changes{'internal.releaserequired'} = $releasereq; |
|
} else { |
|
if ($courseinfo{'internal.releaserequired'} ne $releasereq) { |
|
|
|
$changes{'internal.releaserequired'} = $releasereq; |
|
} |
|
} |
} |
} |
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') { |