[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.11 and 1.13

version 1.11, 2012/03/31 22:10:16 version 1.13, 2012/07/21 21:20:25
Line 242  sub recurse_courses { Line 242  sub recurse_courses {
                 }                  }
   
                 unless ($chome eq 'no_host') {                  unless ($chome eq 'no_host') {
                       if (($lastaccess->{$cid} eq '') ||
                           ($lastaccess->{$cid} > $twodaysago)) {
                           my $contentchange;
                           if ($courseinfo{'internal.created'} eq '') {
                               $contentchange = &last_map_update($cnum,$cdom);
                           } else {
                               unless ($courseinfo{'internal.created'} > $lastaccess->{$cid}) {
                                   $contentchange = &last_map_update($cnum,$cdom);
                               }
                           }
                           if (($contentchange) && ($contentchange > $courseinfo{'internal.contentchange'})) {
                               $changes{'internal.contentchange'} = $contentchange;
                           }
                       }
                     $courseshash->{$chome}{$cid} = {                      $courseshash->{$chome}{$cid} = {
                         description => $courseinfo{'description'},                          description => $courseinfo{'description'},
                         inst_code   => $inst_code,                          inst_code   => $inst_code,
Line 391  sub commblock_constraints { Line 405  sub commblock_constraints {
                 my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'course.commblock.timer'});                  my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'course.commblock.timer'});
                 ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);                  ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);
                 last;                  last;
             } elsif ($block =~ /^(\d+)____(\d+)$) {              } elsif ($block =~ /^(\d+)____(\d+)$/) {
                 my ($start,$end) = ($1,$2);                  my ($start,$end) = ($1,$2);
                 next if ($end < $now);                   next if ($end < $now); 
             }              }
             if (ref($comm_blocks{$block}) eq 'HASH') {              if (ref($comm_blocks{$block}) eq 'HASH') {
                 if (ref($comm_blocks{$block}{'blocks'}) eq 'HASH') {                  if (ref($comm_blocks{$block}{'blocks'}) eq 'HASH') {
                     if (ref($comm_blocks{$block}{'blocks'}{'docs'}) eq 'HASH') {                      if (ref($comm_blocks{$block}{'blocks'}{'docs'}) eq 'HASH') {
                         if (keys(%{$comm_blocks{$block}{'blocks'}{'docs'}} > 0) {                          if (keys(%{$comm_blocks{$block}{'blocks'}{'docs'}}) > 0) {
                             my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'course.commblock.docs'});                              my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'course.commblock.docs'});
                             ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);                              ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);
                             last;                              last;
Line 489  sub read_paramdata { Line 503  sub read_paramdata {
     return $resourcedata;      return $resourcedata;
 }  }
   
   sub last_map_update {
       my ($cnum,$cdom) = @_;
       my $lastupdate = 0;
       my $path = &LONCAPA::propath($cdom,$cnum);
       if (-d "$path/userfiles") {
           if (opendir(my $dirh, "$path/userfiles")) {
               my @maps = grep(/^default_?\d*\.(?:sequence|page)$/,readdir($dirh));
               foreach my $map (@maps) {
                   my $mtime = (stat("$path/userfiles/$map"))[9];
                   if ($mtime > $lastupdate) {
                       $lastupdate = $mtime;
                   }
               }
           }
       }
       return $lastupdate;
   }
   
Removed from v.1.11  
changed lines
  Added in v.1.13

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