--- loncom/interface/lonannounce.pm 2005/11/18 13:35:30 1.37 +++ loncom/interface/lonannounce.pm 2006/01/12 22:45:19 1.39 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.37 2005/11/18 13:35:30 www Exp $ +# $Id: lonannounce.pm,v 1.39 2006/01/12 22:45:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,7 +63,7 @@ $help $lt{'end'}:$enddateform
- +

ENDFORM } @@ -244,7 +244,7 @@ sub showday { } 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{$_}; }