[LON-CAPA-cvs] cvs: loncom /interface lonannounce.pm

[albertel]

albertel		Thu Jan 12 17:45:20 2006 EDT

  Modified files:              
    /loncom/interface	lonannounce.pm 
  Log:
  - items that occured exactly at midnoight did not get shown on the calendar
  
  
Index: loncom/interface/lonannounce.pm
diff -u loncom/interface/lonannounce.pm:1.38 loncom/interface/lonannounce.pm:1.39
--- loncom/interface/lonannounce.pm:1.38	Tue Nov 22 11:16:53 2005
+++ loncom/interface/lonannounce.pm	Thu Jan 12 17:45:19 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.38 2005/11/22 16:16:53 albertel Exp $
+# $Id: lonannounce.pm,v 1.39 2006/01/12 22:45:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -244,7 +244,7 @@
     }
     foreach (keys %allcal) {
 	my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);
-        if (($startdate<$nextday) && ($enddate>$tk))  {
+        if (($startdate<$nextday) && ($enddate>=$tk))  {
 	    $outp.='___&&&___'.$course.'@'.$startdate.'@'.$enddate.'@'.
             $allcal{$_};
         }