[BACK]Return to refresh_courseids_db.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / misc

Diff for /loncom/misc/refresh_courseids_db.pl between versions 1.5 and 1.6

version 1.5, 2010/07/29 17:44:45 version 1.6, 2010/07/30 17:46:12
Line 304  sub recurse_courses { Line 304  sub recurse_courses {
                                 $courseinfo{'internal.'.$item};                                  $courseinfo{'internal.'.$item};
                         }                          }
                     }                      }
                     if ($reqdmajor ne '' && $reqdminor ne '') {                      if ($reqdmajor eq '' && $reqdminor eq '') {
                         $courseshash->{$chome}{$cid}{'releaserequired'} = $reqdmajor.'.'.$reqdminor;                          if ($courseinfo{'internal.releaserequired'} ne '') {
                     }                              $changes{'internal.releaserequired'} = '';
                     if ($courseinfo{'internal.releaserequired'} ne $reqdmajor.'.'.$reqdminor) {                          }
                         $changes{'internal.releaserequired'} = $reqdmajor.'.'.$reqdminor;                      } 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 (keys(%changes)) {
                         if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {                          if (&Apache::lonnet::put('environment',\%changes,$cdom,$cnum) eq 'ok') {
Removed from v.1.5  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>