[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.17 and 1.18

version 1.17, 2013/12/25 20:43:51 version 1.18, 2014/06/07 03:07:06
Line 410  sub coursetype_constraints { Line 410  sub coursetype_constraints {
   
 sub commblock_constraints {  sub commblock_constraints {
     my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_;      my ($cnum,$cdom,$reqdmajor,$reqdminor) = @_;
     my %comm_blocks =  &Apache::lonnet::dump('commblock',$cdom,$cnum);      my %comm_blocks =  &Apache::lonnet::dump('comm_block',$cdom,$cnum);
     my $now = time;      my $now = time;
     if (keys(%comm_blocks) > 0) {      if (keys(%comm_blocks) > 0) {
         foreach my $block (keys(%comm_blocks)) {          foreach my $block (keys(%comm_blocks)) {
             if ($block =~ /^firstaccess____(.+)$/) {              if ($block =~ /^firstaccess____(.+)$/) {
                 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+)$/) {
Line 426  sub commblock_constraints { Line 426  sub commblock_constraints {
                 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;
                         }                          }
Removed from v.1.17  
changed lines
  Added in v.1.18

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