--- loncom/interface/lonannounce.pm 2005/11/17 21:33:40 1.36 +++ 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.36 2005/11/17 21:33:40 www Exp $ +# $Id: lonannounce.pm,v 1.39 2006/01/12 22:45:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,7 +53,7 @@ sub editfield { my %lt=&Apache::lonlocal::texthash('post' => 'Post Announcement', 'start' => 'Starting date', 'end' => 'Ending date', - 'incrss' => 'Include in course newsfeed'); + 'incrss' => 'Include in course RSS newsfeed'); $r->print(<$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{$_}; }