--- loncom/misc/refresh_courseids_db.pl	2010/07/29 17:44:45	1.5
+++ loncom/misc/refresh_courseids_db.pl	2010/07/30 17:46:12	1.6
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.5 2010/07/29 17:44:45 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.6 2010/07/30 17:46:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -304,11 +304,21 @@ sub recurse_courses {
                                 $courseinfo{'internal.'.$item};
                         }
                     }
-                    if ($reqdmajor ne '' && $reqdminor ne '') {
-                        $courseshash->{$chome}{$cid}{'releaserequired'} = $reqdmajor.'.'.$reqdminor;
-                    }
-                    if ($courseinfo{'internal.releaserequired'} ne $reqdmajor.'.'.$reqdminor) {
-                        $changes{'internal.releaserequired'} = $reqdmajor.'.'.$reqdminor;
+                    if ($reqdmajor eq '' && $reqdminor eq '') {
+                        if ($courseinfo{'internal.releaserequired'} ne '') {
+                            $changes{'internal.releaserequired'} = '';
+                        }
+                    } 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 (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {