[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.7

version 1.5, 2010/07/29 17:44:45 version 1.7, 2010/08/01 03:57:32
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') {
Line 365  sub coursecontent_constraints { Line 375  sub coursecontent_constraints {
     my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_;      my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_;
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     if (defined($navmap)) {      if (defined($navmap)) {
         my %resourcetracker =  &Apache::lonnet::dump('nohist_resourcetracker',          my %anonsubmissions =  &Apache::lonnet::dump('nohist_anonsurveys',
                                                      $cdom,$cnum);                                                       $cdom,$cnum);
         my %allresponses;          my %allresponses;
         my $anonsurv_subm;          my $anonsurv_subm;
Line 378  sub coursecontent_constraints { Line 388  sub coursecontent_constraints {
             my @parts = @{$res->parts()};              my @parts = @{$res->parts()};
             my $symb = $res->symb();              my $symb = $res->symb();
             foreach my $part (@parts) {              foreach my $part (@parts) {
                 if (exists($resourcetracker{$symb."\0".$part."\0anonymous"})) {                  if (exists($anonsubmissions{$symb."\0".$part})) {
                     $anonsurv_subm = 1;                      $anonsurv_subm = 1;
                 }                  }
             }              }
Removed from v.1.5  
changed lines
  Added in v.1.7

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