--- loncom/misc/refresh_courseids_db.pl	2012/03/31 22:10:16	1.11
+++ loncom/misc/refresh_courseids_db.pl	2012/07/21 20:18:37	1.12
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.11 2012/03/31 22:10:16 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.12 2012/07/21 20:18:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -391,14 +391,14 @@ sub commblock_constraints {
                 my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'course.commblock.timer'});
                 ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);
                 last;
-            } elsif ($block =~ /^(\d+)____(\d+)$) {
+            } elsif ($block =~ /^(\d+)____(\d+)$/) {
                 my ($start,$end) = ($1,$2);
                 next if ($end < $now); 
             }
             if (ref($comm_blocks{$block}) eq 'HASH') {
                 if (ref($comm_blocks{$block}{'blocks'}) 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'});
                             ($reqdmajor,$reqdminor) = &update_reqd_loncaparev($major,$minor,$reqdmajor,$reqdminor);
                             last;