[LON-CAPA-cvs] cvs: loncom /misc refresh_courseids_db.pl

[raeburn]

raeburn		Sat Jul 21 20:18:37 2012 EDT

  Modified files:              
    /loncom/misc	refresh_courseids_db.pl 
  Log:
  - Fix typos in rev 1.11.
  
  
Index: loncom/misc/refresh_courseids_db.pl
diff -u loncom/misc/refresh_courseids_db.pl:1.11 loncom/misc/refresh_courseids_db.pl:1.12
--- loncom/misc/refresh_courseids_db.pl:1.11	Sat Mar 31 22:10:16 2012
+++ loncom/misc/refresh_courseids_db.pl	Sat Jul 21 20:18:37 2012
@@ -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 @@
                 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;