version 1.2, 2010/03/15 20:13:14
|
version 1.3, 2010/03/17 18:16:56
|
Line 263 sub recurse_courses {
|
Line 263 sub recurse_courses {
|
} elsif ($courseinfo{'internal.co-owners'} ne '') { |
} elsif ($courseinfo{'internal.co-owners'} ne '') { |
$courseshash->{$chome}{$cid}{'co-owners'} = $courseinfo{'internal.co-owners'}; |
$courseshash->{$chome}{$cid}{'co-owners'} = $courseinfo{'internal.co-owners'}; |
} |
} |
|
foreach my $item ('categories','cloners','hidefromcat') { |
|
if ($courseinfo{$item} ne '') { |
|
$courseshash->{$chome}{$cid}{$item} = $courseinfo{$item}; |
|
} |
|
} |
|
foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date') { |
|
if ($courseinfo{'internal.'.$item} ne '') { |
|
$courseshash->{$chome}{$cid}{$item} = |
|
$courseinfo{'internal.'.$item}; |
|
} |
|
} |
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: "; |