loncom/misc/refresh_courseids_db.pl - diff

Return to refresh_courseids_db.pl CVS log

Up to [LON-CAPA] / loncom / misc

-version 1.2, 2010/03/15 20:13:14
+version 1.3, 2010/03/17 18:16:56
  Line 263  sub recurse_courses {
                      } elsif ($courseinfo{'internal.co-owners'} ne '') {
                          $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 (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {
                              print $fh "Course's environment.db for ".$cdom."_".$cnum." successfully updated with following entries: ";