--- loncom/misc/refresh_courseids_db.pl	2013/06/26 21:22:42	1.16
+++ loncom/misc/refresh_courseids_db.pl	2013/12/25 20:43:51	1.17
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.16 2013/06/26 21:22:42 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.17 2013/12/25 20:43:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -184,8 +184,10 @@ sub recurse_courses {
                 my $creationcontext = $courseinfo{'internal.creationcontext'};
                 my $inst_code = $courseinfo{'internal.coursecode'};
                 my $releaserequired = $courseinfo{'internal.releaserequired'};
+                my $uniquecode = $courseinfo{'internal.uniquecode'};
                 $inst_code = '' if (!defined($inst_code));
                 $owner = '' if (!defined($owner));
+                $uniquecode = '' if (!defined($uniquecode));
                 if ($created eq '') {
                     if (ref($currhash->{$cid}) eq 'HASH') {
                         $created = $currhash->{$cid}{'created'};
@@ -326,7 +328,7 @@ sub recurse_courses {
                             $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 '') {
                             $courseshash->{$chome}{$cid}{$item} =
                                 $courseinfo{'internal.'.$item};