loncom/misc/refresh_courseids_db.pl - diff

Return to refresh_courseids_db.pl CVS log

Up to [LON-CAPA] / loncom / misc

version 1.11, 2012/03/31 22:10:16	version 1.12, 2012/07/21 20:18:37
Line 391 sub commblock_constraints {	Line 391 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;