|
version 1.16, 2013/06/26 21:22:42
|
version 1.17, 2013/12/25 20:43:51
|
|
Line 184 sub recurse_courses {
|
Line 184 sub recurse_courses {
|
| my $creationcontext = $courseinfo{'internal.creationcontext'}; |
my $creationcontext = $courseinfo{'internal.creationcontext'}; |
| my $inst_code = $courseinfo{'internal.coursecode'}; |
my $inst_code = $courseinfo{'internal.coursecode'}; |
| my $releaserequired = $courseinfo{'internal.releaserequired'}; |
my $releaserequired = $courseinfo{'internal.releaserequired'}; |
| |
my $uniquecode = $courseinfo{'internal.uniquecode'}; |
| $inst_code = '' if (!defined($inst_code)); |
$inst_code = '' if (!defined($inst_code)); |
| $owner = '' if (!defined($owner)); |
$owner = '' if (!defined($owner)); |
| |
$uniquecode = '' if (!defined($uniquecode)); |
| if ($created eq '') { |
if ($created eq '') { |
| if (ref($currhash->{$cid}) eq 'HASH') { |
if (ref($currhash->{$cid}) eq 'HASH') { |
| $created = $currhash->{$cid}{'created'}; |
$created = $currhash->{$cid}{'created'}; |
|
Line 326 sub recurse_courses {
|
Line 328 sub recurse_courses {
|
| $courseshash->{$chome}{$cid}{$item} = $courseinfo{$item}; |
$courseshash->{$chome}{$cid}{$item} = $courseinfo{$item}; |
| } |
} |
| } |
} |
| foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date') { |
foreach my $item ('selfenroll_types','selfenroll_start_date','selfenroll_end_date','uniquecode') { |
| if ($courseinfo{'internal.'.$item} ne '') { |
if ($courseinfo{'internal.'.$item} ne '') { |
| $courseshash->{$chome}{$cid}{$item} = |
$courseshash->{$chome}{$cid}{$item} = |
| $courseinfo{'internal.'.$item}; |
$courseinfo{'internal.'.$item}; |
![[BACK]](/icons/back.gif){kind=icon}
Return to refresh_courseids_db.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / misc